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MANAGEMENT 

SYSTEM ps'iSOiiSk 

• Complete, illustrated manual in a three ring binder 

• Handles 1, 2, 3, or 4 disk drives 

• Written in BASIC, with instructions for writing your own 
programs to use DMS files, including I/O routines. 

• Create, add, update, or delete files easily. 

• Search any field for any data. 

• Sort by any field. 

• Print reports, selecting any fields in any order, and 
maintain totals and subtotals on any numberic fields. 

• Print mailing labels. 

• Print records selectively, for example, only customers 
with New York addresses. 

• Codes printed on screen refer you to manual for ex- 
planation at all timesVi 

• Complete index in manual. 

• Scan function to report statistically on file. You might 
ask how many accounts are overdue and receive a 
report that stated 10 records found in 200 records scan- 
ned (5% of file). 

• Automatically tests line printer ready state to avoid 
system lockup. 

• Printer alignment pattern for labels. 

• Warning issued if you try to compact data without 
creating a backup. (You can ignore warning). 

Comes on cassette tape for $74.95 (pius $2 shipping) 
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APL is a powerful and elegant computer language, yet it is easy to learn. It is 
ideal for the engineer, scientist, mathematician, circuit designer, or for the per- 
son who just wants to learn a new language. 

Due to the absence of the special character set for APL on the TRS-80*, APL 80 
uses shifted letters, which are identified on the screen with a lighted graphics 
block before the letter. If you have a modified TRS-80 (Electric Pencil 
Modification), a lower case driver Js included to display the shifted letters on 
the screen. 

Special features of APL 80 include the ability to save and load workspace on 
disk, return to DOS for directory or commands without losing your workspace 
or variables, and send output to a line printer. Four workspaces are included 
with lessons on the use of APL operators, commands, and functions, with many 
examples. 

All of this plus instruction manual and the book APL: An Interactive Approach, 

for only $49.95 plus $1.00 shipping. 32K, 1 disk required; 48K recommeded. 

Reduced featured, 16K Level II tape version, no lessons, no book, I/O capacity, 
$14.95; with book, $39.95 plus $1.00 shipping. 

APL An Interactive Approach, Separately, $15.50 plus $1.00 shipping. 
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Our policies with respect to software purchase are highly incMvidualized, and offer the programmer 
several options, including one-time publication rights. Outright purchase, and royalties on sale of 
prerecorded cassettes. Program submissions should use Radio Shack Level il Basic, should run in Level 11 
and Disk BASIC, and may not employ coding techniques that cannot be accurately presented in a line 
listing, such as SYSTEM modules and "super graphics" or other hybrid methods. For more Information, 
please write: SoftSide, PO Box 68, Milford, NH 03055. 
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Side Publications. Ail rights reserved. 

PLEASE NOTE: TRS-SO is a registered trademark of Radio Shack, a division of Tandy Corporation. 
The Software Exchange is not connected in any way with Radio Shack or Tandy Corporation. j- 
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I'd like to begin this month with a 
word of appreciation to The Dunes 
Hotel and Country Club for 

providing pictures for this issue, 
including our cover. 

Gambling fever seems to have 
struck our magazine this month. 
Perhaps it is the aftereffects of the 
Las Vegas Consumer Electronics 
Show, or possibly the risky 
environment for microcomputer 
related businesses this year. 
Shakeouts are nothing new for the 
personal computer market, as we 
have seen even some of the 
leading companies of a few years 
ago go under. But momentous 
events are upon us. 

One feature of the year is sig- 
nificant new computers. Your 
editor (and indeed not only most 
of the staff, but even former staff 
members) has fallen in love with a 
new machine. The Atari 800. (Yes, 
we do sell it! Ask HardSide about a 
trade In.) We expect to launch 
SoftSide: Atari this summer, atid 
we are eagerly looking for 
programs. If you want to move up 
to high resolution graphics and 
color, investigate this computer. 
We saw a demonstration of a 
space game Atari is preparing that 
was so good I won't even try to 
describe it. 

Another new computer 
scheduled for the immediate 
future is the Video Genie, the 
much rumored TRZ-80 from Hong 
Kong with our own familiar Level 1 1 
BASIC, TRS-80 compatible tapes, 
and even an S-100 backplane for 
expansion. We saw the prototype 
in Las Vegas and were suitably 
impressed. 



Of course, we also have the 
persistant rumor of the TRS-80 
color. As Radio Shack interviewed 
some of our programmers for 
sweet jobs at the Tandy Counter, 
they asked questions about pro- 
gramming experience with the 
6502. My prediction is a lesser 
imitation of the Atari with a price of 
$800 to be introduced in June at 
the New York show. This time they 
will probably have some good 
games at the time of introduction, 
as a color computer is more game 
oriented. I suspect that they will try 
to keep a compatible BASIC and 
cassette format. Since Tandy is a 
marketing company instead of a 
computer company, they could 
probably make a lot of money out 
of a pile of junk. But we will hope 
for good things. 

One computer that seems out of 
the running is the Texas 
Instruments 99/4. It has the 
weakest graphics, the weakest 
BASIC, and the heftiest price in its 
category. Their eastern distributor 
came to the same conclusion and 
dropped the product to sell the 
Atari. With the 990 processor and 
products like the Speak and Spell, 
T.I. still has the ability to build a 
great computer, but I suspect they 
don't want any threats to their 
minicomputers. 

Impressive printers are also 
appearing for the personal 
computer. Hardside will be selling 
the Centronics 737 with nice print, 
lower case and proportional 
spacing for less than a thousand 
dollars, and the Eaton LRC, with 
plain paper, ordinary (cheap!) 
ribbons, and software selectable 



20, 32, 40, and 64 characters per 
Ijne and incredible durability for 
around $400. In addition. Radio 
Shack demonstrated a nice, quiet 
daisy wheel printer at the San 
Francisco Computer Faire. 

The Computer Faire was a good 
show this year, with SoftSide 
authors Scott Adams, Will 
Hagenbuch, Art Canfield, Harvard 
Pennington, Douglas Carlston, 
and others coming by the booth. 
We sold well over 1,000 SoftSides 
and close to 1,000 tapes at the 
Faire. 

It was good to meet with the staff 
of other computer magazines. 
Byte, Creative Computing, 



Compute, 80-US, The S-80 
Bulletin, and Computronlcs were 
among the exhibitors. Apparently 
Microcomputing could not afford 
to exhibit, as Wayne Green's last 
industry mewsletter complained 
of show losses. Roger and I had a 
delightful evening with Mike 
Schmidt and Terry Dettmann of 
80-US. 

That's probably enough 
comments to keep the mail 
coming in this month! We 
especially want to hear from 
people who have transl^ated 
SoftSide programs for the Atari, 
APPLE, and other computers. 
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NUMEROLOGY 

by John T. Phillipp 

Contained within the name you received at birth is the uncanny ability to 
delineate your characteristics and forecast your future. The number of letters in 
your name and your date of birth are the basis for this occult art. Even skeptics 
are amazed at the accuracy of the readings . . . 

ANOTHER GREAT FORTUNE-TELLING PROGRAM from the author of the 
highly successful SECRETS OF THE TAROT and I CHING. Complete your set! 

32K Disk. ...$14.95 

neSaiiwat^ Exchange 
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A softside service for 



* persor}al ii^&mputer market 
Quite often we receive submissions that are not commercially 
marketable. For example, someone may have a useful program for rabbit 
breeding, but we do not have enough demand for it to justify the cost of 
reviewing, advertising, and publishing it. A medium is needed for the 
exchange of information on specialized programs. 

Therefore we will maintain a catalog of sources for this software and 
publish it quarterly at a nominal cost. If you would like to list your softwarie 
(FREE!), send this form to: 

P.O. Box 68 
Milford, NH 03055 

This is a medium for original authors only. Name and address of the 
programmer must appear in ad. We reserve the right to refuse any ad, and 
will publish only ads for non commercial practical applications. SoftSide 
does not review or warranty these programs in any way. 



SUBMISSION FORM: 

PLEASE PUBLISH THE FOLLOWING AD IN S.S.S,S.: 



NAME 

ADDRESS . 



I CERTIFY THAT I AM THE AUTHOR OF THE ABOVE PROGRAM. 



-(SIGNATURE) 
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Written by the author of your Level I Users Manual, LEARNING 
LEVEL II picks right up where the Level I Manual leaves off. It also 
supplies the changes needed to malie the Level I Manual compatible 
with your Level II TRS-80. 

LEARt^INQ LEVEL II covers all Level II BASIC beyond Level I, plus 
much more. It shows you how to use the Editor, explains what the 
many error messages are really saying, and leads you thru conver- 
sions of Level I programs to Level II. 

Dual cassettes, printers, the Expansion Interface with clock and 
other features are explained in the same easy-to-iearn style that 
made the Level I Manual famous. LEARNING LEVEL 11 was created 
specifically for your Level II TRS-801 



Yes, I want to really learn how to use Level II! 

Please send copies of 

LEARNING LEVEL II. My check for $15.95 + 
$1.00 P & H is enclosed. 



I understand my order will be shipped 
promptly and there is a 30 day mdney-baci< 
guarantee. ^^ c^S 

5piO(soft cover) 




Name 

Address . 

City 

State 
Zip Code 



6 ScxJthStreet, Box 68, Milfofd,NH 03055 603-673-5144 
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What do you do when you finish reading 
TRS-80 Assembly Language Programming 
by Bill Barden ... 

and you want to do some serious machine 
language or assembly language programming? 

Buy the 

Z80S<rttware 
t Guide &Cooldiook 



Utility Routines • Stack Operations • 
Searches and Sorts • Floating Point 
Routines • Z-80 Instruction Set 

The index lists over 100 assembly language 
routines and subroutines that you can use! 
$14.95 plus $1.00 shipping 



MORE BOOKS FROM 



New from 
SCELBI 5PJ 
Publications 




IheSath&m^EMchaMige 
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TRS-80 DISK AND 
OTHER MYSTERIES 

by Harvard C. Pennington 
if you are serious enougli about disi< pro- 
gramming to own RSM-2D or NEWDOS + , 
then you ouglit to purchase this bool<. it 
expiains the organization and features of 
TRS-DOS 2.0, 2.1, 2.2, NEWDOS, and 
VTOS, telis you how to use Superzap, 
RSiVI-2D, IVIonitor 3, Debug, Dirchecl<, and 
LMOffset, expiains the directory tracl< on 
the disl<, file structures (including Electric 
Pencil files), and even gives detailed pro- 
cedures for recovery of lost data. While 
this boolt is not recommended for the in- 
experienced user, it is essential for the 
serious disl^ programmer. The book is ex- 
pensive, in 8y2 by 11 format with typewrit- 
ten instead of typeset printing, and only 
130 pages, yet the Information is worth 
the price. $22.50 

plus $1.00 shipping and handling, 

LITTLE BOOK OF 
BASIC STYLE 

John M. Nevison 

Ideal reference for BASIC programmer, 

junior high to research scientist. Indexed, 

illustrated, 151 pages. 

$5.95 plus $1.00 shipping and handling 



TRS-80 ASSEMBLY 

LANGUAGE 

PROGRAMMTNG 

William Barden, Jr. 

Covers Z-80, an introauction to Assembly 
Language, the Radio Shacl^ Shacic Editor/ 
Assembler and T-Bug, and debugging 
methods; also explains how to move 
data, the use of arithmetic, compare, 
logic, and bit operations, shifts, strings, 
tables, input and output, and 12 common- 
ly used subroutines. Well Indexed and il- 
lustrated. 
$3.95 pius$l.00 shipping and handling 



TRS-80 INTERFACING 

by Jonathan A. Titus. 
This valuable reference book for the hard- 
ware enthusiast with an understanding of 
Assembly language programming in- 
cludes the schematic, printed circuit 
board artwork, ana Insiructions for 
building a TRS-80 breadboard, plus 18 ex- 
periments to give a solid understanding 
of interfacing to the TRS-80. $8.95 

plus $1.00 for shipping and handling 
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Floppy Disk 
Diagnostic 

by Dave Stambaugh 



• 35 or 40 track in same program 

• Tests controller functions and status bits 

• Tests drive speed and allows adjustment 

• Tests switches and mechanical 
components 

• Verifies data transfer 

• Tests drive seek function 

• Sector and byte write and read tests 
using all possible patterns 

• 16 to 48K, 1 to 4 disk drives 

• Tests cross cylinder interference 

• Tests drive-to-drive compatibility 

The best and most complete diagnostic you can buy 
to verify disk drive reliability and find problems. 
Displays 19 error messages and cross references 
them to 14 possible causes. Continuous test option 
for exhaustive testing keeps statistical record of all 
errors found. 

Supplied on diskette with manual for only 
$24.95. 
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by James Garon 



Solitaire simulates a familiar peg puzzle called Hi-Q. The object is to 
remove as many pegsas possible by jumping horizontally or vertically over 
a peg, into a vacant hole, removing the jumped peg in the process. 

Proficient players will leave only one piece. Very proficient players will 
leave only one piece, in the center hole. Real hotshots will "mark" a piece at 
the beginning of the game, and end with that piece alone in the center hole. 

Adding to the excitement are the famous James Garon sound effects! 



9 '**♦ SOLITflREHlTH: SOUND *** 
*** BV JflHESGflRON «** 
*** NR5HUR. NEH HRNPSHIRE *** 

2aS:G0T0ie * 

5 H=1:PRINTW32, "8 "i 

10 GOSUB380e : PRIMTM, CHR$<23> : OEFSTRfl-6 : DEFINT I-Z : P=344 : R=l : S=2 : 
V=1526e:ft=CHR*<143) :D=a«*<141) :E=" " :C=a«*<142)+E+CHR*<i43)+E+ 
CHI»<i43)+E:G="? 
15 IFH=0QOSUB8888 

28 FORI=342TO406STEP64:PRlNT§LEiC; :NEXT:F0RI=462T0598STEP64:PRI 
WTei,EiCiCCHR*<143)E; :NEXT:F0RI=662T0726STEPM:PRINT?LE;Ci :NEXT 
:PRINTe54e,Ei 

38 B(l)="fl PERFECT SCORE IS 31":B(8)=CHR$(38);PRINTie,TftB(9)"P U 
Z Z L E"B<0):DIMZ<7,7):F(}RI=lTO7:L=USR<5E3>:L=Ug?<2E4):U=l-U:PR 
mwn, B<U>; :FORJ=1T07:Z(L J)=1:NEXT:NEXT.FORI=1T02.FORJ=1T02:Z< 
L J)=2:Z(1. 8-J)=2:Z(8-L J)=2:Z<8-L 8-J)=2:NEXT:NEXT 
40 Z<4,4)=0.PRINT80, "SELECT <"i :F0Rl=91T094:PRINTCHRt<I)" "; :NEX 
T:PRINTCHR$(8)"> PIECE TO HflRK 
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(TRV TO END WITH IT IN (INTER) 

THEN PRESS =€NTER="; 
65 F=CHR*<PEEK(V+P)):1=0 

70 GOSUB608 : P0KE16444, 8 : PRINTW>, Di : L=USR(1K3-17*I > : PRINT«>, F; ; B 
= INKEVt : 1FB=" "TICN78eLSEV=ftSC(B) 
73 1FV=8IFS>1IF2(R,S-1><2TI€NS=S-1;P=P-4:G0T065 
75 IFV=91FS<7IFZ(R,S+1)<2T«NS=S+1:P=P+4;<»T065 
77 IFV=91IFR>llF2(R-LS)<2TWf«=R-l:P=P-64:G0T065 
80 IFV=10IFR<7IFZ<R+1,S><2T(€>«=R+1:P=P+64:GOTO65 
85 IFV-OT>CN70ELSElF2(R,S>PRlNTeP,D;ELSE70 
88 PRINT§916, "SC«E = 8 

(PRESS S TO STM?T OVER)"; 
90 P=244;R=l:S=3;(a)Sl«9999 
100 F=CHR*(PEEK(V+P)) 

110 Pa(E16444,0:PRINT§P,& •L=USR<4095-5*T):L=USR(L-64):PRINT0P,F 
i : FORI=1TO10 : B=INKEVI : IFB=" "THENTCXT : (a3TO110ELSEV=flSC(B) 
115 IFV=83THEffORl=3071-5*nO3071STEP5.L=liSR(l):ICXT:RUN5 
120 IFV=8IFS>1IF2(R/S-1)<2TI€NS=S-1:P=P-4;GOTO100 
O0 IFV=9IFS<7IFZ(R,S+l)<2THENS=S+l:P=P+4;aiTO100 
140 IFV=91IFR>lIFZ(R-i,S)<2THENR=R-l:P=P-64:GOTO100 
150 IFV=18IFR<7IFZ(R+1, S)<2THEM?=R+1:P=P+64:GOTO100 
160 1FV-13THEN110ELSEIF2(R,S)=1THENPRINT8P,G; .PRINT§0, "DIRECTION 
TO JUMP ([ ] S ") ?"ELSEli0 
208 B=I»CEV$ . IFB=""THEN200aSEV=ftSC<B) 

210 IFV=8IFS>2IFZ(R, S'-1)=1IF2(R, S-2)=8THeG<fc S)=0:Z<R,S-1)=0:2( 
R, S-2)=l : PRINTeP, Ei : PRINT0P-4, E; : PRINT0P-8, fl; : P=P-8 : S=S-2 : G0T028 


220 1FV=9IFS<?IF2(R, S+1)=11FZ(R, S+2)=0THE»G(R, S)=0:Z(R, S+1)=0:Z< 
R.S+2)=1:PRINT»P,E; :PRlNT0P+4/Ei :PRINT§P+8,ft; :P=P+8:S=S+2:G0T028 


230 IFV=91IFR>2IFZ(R-i, S)=lIFZ(R-2, S)=0THENZ<R, S)=0:Z(R-L S)=0:Z 
<R-2,S)=l:PRINT0P,Ei :PRINTeP-64,Ei :PRINT«>-128,fli :P=P-128:R=R-2: 
GOTO280 

240 IFV=10IFR<7IFZ<R+1, S)=lIFZ(R+2, S)=0TI€NZ<R, S)=0 :Z(R+1, S)=0 : Z 
(R+2,S)=1:PRINT§P,E; PRM§P+64,Ei :PRINT0P+128.fli :P=P+128:R=R+2: 
GOTO280 
250a3TO29e 
280T=T+l:PRINTW30,Ti 
290 GOSUB9999GOTO110 
600 1=1+1 :1FI=13T«NI=0:RETU»CLSERETIKN 
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3808 Ht="HERE'S WHERE THE SIXJND GOES" 
3018 I=V«?PTR<H*) : J=PEEK<I+l)+256*PEEK(I+2) 
3020 F0RK=JT0J+26:REftDX:P0KEK,X:NEXT 

30!^ IFPEEI«16396>=20iPOKE16^6, PEEK( I+l) :P0KE1652?, PEEK( I+2>ELS 
ECI«»"T" : DEFUSR0=PEEK( I+1)+256*PEEK( 1+2) : P0KE14^8. 
3040 RETURN 

3050 DfiTfl205, 127, 10, 11, 68, 62, 10, Iffi, 
211,255,45,32,253,61,105, 
211. 255, 45, 32, K3, 64, 16, 
238,61,211,255,201 

8888 B=STRING$<4, 143) :FCiRI=268TO820STEP64:PRIHT§L STRINGICl?, 191 
):NEXT:PRINT§2?8,STRirffil(7,143)i ;PRINT0398,Bi :PRINT§4^,Bi :RETIJ? 
N 

9999 PRINT00,CHR$(30) "SELECT PIECE TO MOVE ("; :F0RI=91T094: PRINT 
CHR*(I)" "i -NEXT-PRINTCH^CS)") 
THEN PRESS =ENTER=": RETURN 



TAKE A PART 



Solitaire 

by James Garon 

Those four funny symbols* in line 160 are supposed to be the four ar- 
rows. Most printers cannot print arrows but instead will substitute the 
symbols you see. That explains what you see, but that's not the problem. 
The problem is that three of the arrows cannot by typed from the 
keyboard! So HOW and WHY did I write the line that way??? 

To answer the WHY first, I am a compulsive "byte-miser". I resent hav- 
ing to use the five byte "CHR$(92)" when it is possible to have a one-byte 
"4^"! 

Now for the HOW. Begin typing the line. When you get to the place 
where the arrows go, do the following: 

1)With your left hand, hold down both the I and the Y keys. 

2)Wlth your right hand, one at a time, (and still holding down I and Y) 
press K, L, M and then N. In addition to the K, L, M & N, you will get the ar- 
rows! 

3)ENTER the line, EDIT out the unwanted letters, but leave the arrows; 
then 

4)Finish typing the line. 

By the way, you might someday have a use for the result of following 
step 1 above, while you press the letter "O" . . . 

t4 



Remember the Good Old Days? . . 
You can recapture them I 




Level I in Level II 

by APPARAT 

Level I BASIC interpreter loads In top 
4K of any 16K Level II TRS-80. 
Allows unmodified load, run, and 
CSAVE of Level I programs — no 
conversion hassles! Great for teach- 
ing beginners, young and old, to 
program in BASIC. 



x^System" tape for Level II, 16K — $15.00 



6 SouthStr^t,Box68Milford,NH 03055 603-673-5144 



THE AUTOMATED 
DISKETTE DIRECTORY 

by George Blank 

All you do is insert the diskette in the drive and type the nameor number you use 
for that diskette. The program automatically reads the directory of the diskette, 
ignoring invisible files like BASIC/CMD and normal DOS files tike 
DISKDUMP/BAS, and stores it in a disk file. 

DISPLAY OPTIONS INCLUDE: 

Printout to screen or line printer 

Alphabetic sort 

Search for single program using INSTR 

(A search for TRE would find STARTREK and TREES) 

Index to a single disk 
Search and RUN program 

Three programs with Instructions for loading on a NEWDOS diskette and instruc- 
tion manual. 

IMPORTANT! This program requires the following minimum system: 
At least TWO disk drives NEWDOS by Apparat(Uses CMp-DiR'and open'E") 

32K of memory 
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This Could Be The Handiest 
Program You Own! By Ken Knecht 

IIViKiiiiiellBiisilbisc 

A data base manager is a general purpose file management program 
that can be set up for different uses. This could be the handiest program 
you own! 

You specify the number of items in the file, whether they are 
numerical or alphanumeric and how long each item is, and the program 
creates the file, receives your data, sorts it, searches for information, 
stores and retrieves from disk, and will even perform arithmetic with data 
items. 

Very easy to learn and use, yet you can use it for mailing lists, hobby 
collectons, inventory, appointments, accounting, work organizing, radio 
logbook, billing records, telephone numbers, or a thousand other uses! 

Manual and 3 programs In basic on disk for 32K or large systems 
with one or more drives only $39.95 

TheSaUwateEMschange 

6SouthStKet,Box68,Milfoid/NH03055 603-673-5144 



PENCIL/PAL 



by Microcomputer Specialists 

Form letter generator for use with the 
Electric Pencil by Michael Schrayer. 
You can use a mailing list maintained 
as a PENCIL file, print letters selec- 
tively using selection codes, use 
custom greetings for each account, 
and print labels. Requires 32K 1 Disk 
System, Electric Pencil, and lower 
case modification kit. (Program 121 
lines 5600 Bytes) $35. 






TheSaHware Exchange 

6 South Strxx^t, Box 68, Milford, NH 03055 603-673-5144 
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JANUARY 

• Moving Maze • Bomber 

• Reflection • Dante's Inferno 

• Duck Hunter 

FEBRUARY 

Scott Adam's Backgammon 

• Parachute • Deadstick • Play It 
Again, Sam • Deep Six 

MARCH ^ 

• Broadway • Sonic Torpedoes • Sys- 
tem Emulator • Line Four • Add 



SOFTSIDE ON CASSETTES 

If you have less time at the keyboard than you would like to, and 
have been missing out on some of SoftSide's feature programs, 
we've got a solution! 

NOW AVAILABLE BACK ISSUES W/MAGAZINE $9.95 
1979 1980 

JANUARY 

Round the Horn • Ten Pin Bowling 

• Comput-A-Sketch • Kiddy Slot 

FEBRUARY 

• Form 1040 • Concentration 

• Elements Quiz 
MARCH Monitor • Jigsaw 

Tarot • Check Balance • Dive Bomber 

APRIL 

• Safari • Rabbits and Foxes 

• Personal Finance (Checkfinder) 

• Series Circuits • Don't It Make My 
Brown Eyes Blue • Metric/English 

MAY Converter 

• Dog Star Adventu re • Awari • Letter 
Crunch • Math • Super Sub 

JUNE 

• Atlantic Ballon Crossing • German 
Word Quiz • Nim • Home Appliance 
Record System • Entrapment 

JULY 

• All Star Baseball • Yahtzee • Tank 

• Spelling Bee • Collision 

AUGUST 

• Nuclear Reactor • Storybook 

• Cryptogram • Shooting Gallery 

• Morse Code Tutor 

SEPTEMBER 

• Engineer • Treasure Dungeon 

• Hangman • Pyramids 

OCTOBER 

• Aptitude Test • Reaction Time 

• Battleship • Westward 1847 

• Tug-O-War 

NOVEMBER 

• Everest • Isolate • Energy Cost 

• Picture Puzzles • Doodle Pad 

DECEMBER 

• Oil Baron • Drag Race • Show and 
Tell • Towers of Hanoi • Slalom 




HOPE IT 

DOESN'T 

WORK! 

by Ron Potkin 



You have just spent four hours 
typing in a program from 
"SoftSide", you have SAVED it, 
and now, in exhausted antici- 
pation, you type RUN... Ah, well; 
you didn't really expect it to work 
first time, did you? It's funny but 
very few people can expect to type 
a thousand characters or more 
without making several errors. 

But really. If you are an amateur 
programmer and keen to learn all 
you can about your TRS-80*, then 
your motto should be "HOPE IT 
DOESN'T WORK". You may find it 
frustrating, but you can learn a 
great deal from programs written 
by other people. This is 
particularly true if you are 
compelled to examine the various 
routines closely in orderto remove 
a typing bug. 

I can promise you that the time 
will be well spent. You will 
discover ways to make your own 
programs more efficient and learn 
how to save some of that precious 
memory space. Many of us tend to 
use a subset of the instructions 
available to us. Here is a way to 
help us get a better command of 
the language. 

These are a few of the things I 
have learned by studying various 
programs; usually forced on me 
because they didn't work properly 
first time: 

(1) It does not appear to be 
necessary to use the semi-colon 
when using TAB or CHR$ in a 
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PRINT statement, e.g. 

PRINTCHR$(134)CHR$(65) 
GHR$(173) 

(2) Put routines that are used 
often at the beginning of the 
program. The computer searches 
for line numbers starting from the 
beginning. 

(3) Don't use PRINT STRINGS 
(64,"") to clear a line. Use 
PRINTCHR$(38) instead. We tend 
to overlook the control characters 
but they are fast and save space. 

(4) Dealing a pack of cards. I 
think this is a very clever ro|jtlne. I 
know I would never haye thought 
of It myself : 

DIM(52) 
FORI=1T052 
C(I)=I:NEXT 
FORI=1T052 
A=RND(I):B=C(I) 
C(I)=C{A):C(A)=B:NEXT 
It is very simple but very 
efficient. 

(5) Boolean logic is sometimes 
easier to read and more direct than 
"IF" or "ON....GOTO" statements 
e.g. 

A=20*(B=1 )-37*(B=2)-77*(B=3) 

If B is not equal to 1 , 2 or 3 then A 
equals zero. 

(6) Alternatively, you can 
sometimes avoid complicated 
calculations by setting up a matrix 
of common values when 
initializing the program. Suppose 
you wish to access a print position 
according to the value of a variable 
B; then use 



POSITION=MATRIX(B) 
This will speed up your 
graphics. 

(7) Did you know that MEMORY 
SIZE is obtained by 

PEEK(16598)+PEEK 
(16599*256+2 
This means that you can check it 
to ensure the User has left you 
sufficient room for any machine 
language routines. Better still, the 
size need not be precise. Provided 
it is enough for both BASIC and 
machine language, it can be any 
number, and you can enter your 
routine into MEMORY SIZE+1 



using POKE, PEEK and VARPTR. 

(8) The STEP function has more 
uses than you may realize. 
Suppose you wish to draw two 
lines one at X=10, Y=5 and one at 
X=10,y=29. Use: 

X=10:FORY=5T029STEP24 

NEXT 

There are many others. One last 
point: read your LEVEL II manual 
regularly. It is surprising how 
much one forgets. Have you ever 
seen a program using POS(O)? 
Perhaps everybody has forgotten 
that one. 



PROGRAMMING HINT 

To reset the line counter on your printer so it can count pageis 
correctly on a new listing, use POKE 16425,1. 

To change the number of lines per page, add 1 to the number and 
POKE it Into Location 16424. 




by Roger W. Robitaille, Sr. 

Rough and tumble gridiron action, from the toss of the coin to 
the 2-minute warning... four 15-minute quarters, provisions for 
interceptions, touchbacks, time- 
outs, fumbles, penalties. 

Everything except .^^-^O^^BT > f I ^ ^j 

the cheerleaders. 




Level II, 16K 

Price, $9.95 



Salit^re Exchange 

6 S(XithStr(\iJ^)x(ifi,Mil}(mLNH nm''r (m-hTi-'im 
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in the beginning there was Level I 

THEN THERE WAS LEyEL II 

NOW - LEVEL III BASIC 

Open the manual and load the cassette. Then get ready to work with the 
m6st powerful Basic Interpreter you've ever had your hands on . . .Level 
ill Basic for Radio Shacl< Computers. It loads right on top of the Level II 
ROM, and in ]ust 5K of space, opens up your capability to new dimen- 
sions. For starters, this new cassette-based interpreter gives you most 
of the commands usually found only in disk BASIC. Plus graphics com- 
mands. Plus Powerful editing commands. Plus long error messages, hex 
and octal constants and conversions, user defined functions and a 
number of commands never before available on either cassette or disk 
interpreters. 

Now do more than 
ever before 

With the most 
powerful cassette 
Basic you can buy 

FortheTRS*80 




• EASIER LOADING, FEWER KEYBOARD ERRORS 

• BASIC ACCESS TO RS-232 « 

• EASIER AND MORE POWERFUL GRAPHICS 

• 10 USR CALLS 

• ERROR MESSAGES 

• TIMES 

• TIMED INKEY 

• RENUMBER 

• ONLY MICROSOFT COULD DO IT. Level in Basic was created by Microsoft, 
the same company that wrote Level II Basic for Radio Shack. And It actually uses Level 11 as a 
foundation for this enhanced add-on. 

• AVAILABLE NOW FOR ONLY $49.95. You get the power that might otherwise 
cost you hundreds of dollars In additional equipment for only $49.95. Price includes the Users 
IManuai, a Quick Reference Card, and a preprogrammed cassette tape. 



^^ TheSofh&an Exchange 

«S«Ef 6 SouthStreet,Box68,Milford,NH 03055 603-673-5144 
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The Best 

Has Gotten Better! 

Sargon, the program that came in 
first in the Creative Computing 
IVIicrocomputer Chess Tourna- 
ment, has become Sargon II '$29.95 
•A vastly improved game 
•Faster response time 
•New level for beginners 
•Easier to pre-set board 
•Hint mode - What does the computer suggest 

Sargon II is the program that took 
on the maxi-computers in the West 
Coast tournament, and finished in 
the money! More thinking power 
than you ever expected in a TRS-80. 



Now in stock for immediate delivery! 





byte off all you can chew! 

SSEMBL'^ 
LANGUAGEjnm 

PROGRAMMING'^ 
AIDS 



Z-80and 8080 Assembly 
Language Programming 

by Kathe Spracklen 

Finally! A good tutorial book on assembly language programming 
by a master of the art! Kathe Spracklen, co-author of Sargon, tells you 
how with simple straightforward Instruction. $7.95+ $i shipping 

Microsoft 
Editor/Assembler Plus 

Plus what? Well, you get the features of the T-Bug and the original 
editor/assembler plus macros and conditional assembly, plus extra 
commands like substitute, move, copy, and extend, plus Z^Bug, a 
powerful debugging monitor with 8 level breakpoint capability. A 
bargain at $29.95 

Super Simon 

By George Blank 

Complete Z-80 Disassembler with ability to generate symbol tables, 
dump in Hex, ASCII, or even decimal with poke addresses. Writes 
machine language tapes. Written in BASIC so it loads easy and is easy 
to modify. $9.95 

^^l TheSaftwareEmhange 

■SSEf 6SouthStreet,Box68,Milfotd,NH03055 603-673-5144 
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Keyboard, Uideo, and Printer Enhancements 
by Lance Micklus 

^900 byte machine ianeuasie program allows you to use a 
serial Printer with the TRS-80. You may specify acceptance 
of linefeeds, lines per paee. characters per line, and Printer 
handshake. 

^If you have the Radio Shack™ . Electric Pencil^'^. or one of the 
other published lower case hardware conversions installed in 
your keyboard unit. KUP contains the software driver 
routines to enable the conversion. 

^Includes adjustable keyboard debounce routine. Itoother 
feature Is direct entry of siraphic and control characters 
from the keyboard. 

Requires I6K Level II or Disk Basic. 
On cassette $24.95 Diskette $29.95. 

KUP 232. a special version for tlie small systems hardware 
TRS-232 interface. IS available upon request at tiie same prices. 

IheSaftwmnEjoJtange 

6SouthStmeWBox68Milford,NH03055 603-673-5144 




Tape l^eccrcler Azimuth 
Adjustment 1^^^ 

Solve your tape recorder alignment 

If the alignment of the read/record head on your tape recorder is 
slightly off, you may have a terrible time loading cassette tapes. 
Get the Azimuth Adjustment kit from 
Just Right Products .$9.95 

includes: instructions, Template, High quality narrow gauge screwdriver. 

JheSoMwateEjaJmnge 

6 5outh9reet,Box68,Milford,NH03055 603-67^-5144 
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ICBM by Rod Fitzgerald 



RED ALERT! You are the radar controller at a surface-to-air (SAM) 
missile installation guarding Strategic Area Command Area Head- 
quarters. You have just picked up a Russian ICBM heading your way! The 
alarms are screaming and as the jets scramble, you must launch a 
surface-to-air missile to intercept and destroy the ICBM. 

You control the SAM's direction of travel by the inputting of the proper 
compass bearing. With each new radar scan you are advised of the new 
positions of the ICBM and the SAM, and as the distance narrows, you 
mal^e the necessary adjustments In direction so as to intercept the 
ICBM. 

You may destroy the ICBM by coming within 1.5 miles of it, at which 
point the SAM'S on-board computers will direct it to its target. If you over- 
shoot the ICBM, you can turn the SAM around and chase the ICBM back 
towards your base. In the unlikely event the ICBM survives the detona- 
tion of the first SAM, you can launch another. But, you MUST succeed! 
Good Luck! 




* I. C. B. n * 

2 ' VERSION 12/92/79 (i i 18:16) 

4 ' COPVRIGHTS RESERVED-UNRinHORIZED REPRODUCTION PROHIBITED 
6 ' 4«BRf)NCH LINE 
1089RflNDOH:CLEflR9B:CLS:PRINTCHR$(23>:PRIKr§398,"**M. I.C.B.K * 

♦**":PRINT§7ie,"HRITTEN FOR THE TRS-BB BV" :PRINT§78fc 'ROO FITZGE 

RflLD' :PRINTe842; 'DflLLflS. TEKR5'; ;FORL^lTO4e0B:NEXTL/; 

1818 CLS:PRINT8448, ": iINPUT'DO VOU NEED THE PtRVING INSTRUCTION 

5 <l=VES)'';RNS^:CLS:IFIVIS2=KiOSUB88e8 

1828 CLEflRS8:REST0RE:HEU=RM>(19H78*RND(8):SEN=8.81:HNS»RM><19)« 

£6+RND(8):SNS=6l 81:ffiLT=S6R<HEN[2Hf6[2}4RND(41)-21:HSPEED«RND<8 

)+3:SSPEED=NSPffl)*l 25:RJ»S=57. 2958:51*=" ' :S2»=STRINBf (17, " 

") :R0WC=8. 85: VSX=86:H5Z=9e:MD=e. 81: '* 

1838 DIR^=RND<4) :F0RU2=lT0DIRK:ReiDI>ll> D2>, m. D4$, Si, V^ Ki;i, KZi 

,IQ2:NEXTUi 

1848 GOSU6S88e:G=SQR()GI2«(t6[2):FORU:»15368T01£256STEP64:POKa 

51,191:NEXTLX:F0RLZ=16257TO163ee:POKEL5J,176:NEXTLX:F0RLM6381TOl 

5485STEF-64 POKELX, 191 :HEXTLX:F0RC!=15484T015361STEP-l:Pa(ELX, 13 
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l:IOTLX:'* 

1858 PRINTem,Clfi»(K2^>i :PRINM124l,CH»(IO^); 

1868 mmi 47, "*** IC B H ***"; 
ie78PRIHTttll,"HI. M)l*;"="i 
1888 PRIMT8175, "HI. M)2$;"="i 
1898 PRIHTK39, "ALTITUDE ="; 

nee mmtB67. •*** s ft m ***"; 

iliePRIMTM3L"HI. "iMI;"*"; 

1128 PRIHTW95, "HI. "iD2$j"="i 

1138 PRIMT8559, "ALTITUDE ="i 

U4ePRINT§752,D3*;" ",D4$i" ft"; 

1158 IF HEH=8 AND HN5=8 CLS:PRINTCHRI(23):PRINT8448. "VOU HAVE JU 

ST BEEN ANNIHILATED! ! " :G0SUB4888:CLS:G0TQ1828: '* 

1168 PRINT8122,Sl$j :PRINT»186.S1$; .PRIKTeSS^SlI; :PRINT8442>S1$; 

:PRINT§58&Sl$i :PRINT§578.S1$; :FRIKT8e8£,S2li :FfiINTi81S,S2$; 

1178 PRINT812LINT((HN5+fiOUND)*18)/18; :PRINT8185,INT((nEIHR0UM» 

*ie)/18i :PRINTK49i IMT«HALT+R0UND)*ie)/18; :PRINTM4LIHT<(SNS+R 

0UHD)«18)/18i :PRINT8585, INT«SEH*R0UND)*18)/iei :PRINT8569, INT«S 

ALT+R0UND)*18)/18j 

1188 PRIMT8686, INT«E[>tR0UND)*ie)/18; "HI. APART! "; 

1198 PRIHT8815,STR$(PlZ>i "/.*i :PRINT8828,STR$(P2X); "X«i :PRINT8825 

,Sm<Piy.h •"/.'} 

1288 IFFr/08RESET(ClX,C2X) 

1218 C1X=AB5(HEH+X5:> :C2X=ABS<»B/2-V^) :SET<C15:, C2X) 

1228 IFFm2RESET<C35£,C«) 

1238C32=ABS(SEH+m:C4X=ABS(SNS/2-VX):SET(G2,C4X) 

1248 IFFn!=8G0T(ML2e8 

1258 G0SUB2888:IFI$s*"G0T(]O38 

1268 PRINT8942,S2$; :PRINT8944, "i :INPUT"fiNG:"iSVEC:PRlNT8944, "i 

:IHPUT"flNIK";SUPDN:'* 

1278 PRINT8961i "RADAR SCALE="i VSii "NORTH/SOUTH BV"i HSXi "EAST/HES 

Vi 

1288 IFSVECaTHENSVEC=l 

1298 IFSVEC>36eTHENSVEC=36e 

1388 IFSUPt)N<-98THENSUPDN=-98 

1318 IFSUPDN>98THEHSUPDN=9e 

1328 1*=-" :SVEC=SVE(VRA[«:SUPDN=SUI1WRflDS 

1338 IFSUPDN=8TICH5GSP0=5SPEED:60T0O78:'* 

1348 SALT=SALT+(SSPEED*SIN(SUPDH)) ■ IFSftLT<lTI€NSALT=l 
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13S8 SGSPIHe5(SSPEED«C0S(SUPDN» 

1366 009162888 

1278 0M>IR»iOSUB3888, 3826, 3848. 3868: '* 

1388 IFSGR<»EH[ 24mS[ 2)>HSPEEDGOT01486 

1398 HEH=8:HN5=8:G0TO1158 

1488 HUH)N=ftTN(iaT/G):HflLT=tllT-41SPEEi>i6IH<[1UPDN):HG^^ 

EED«COS<«UPJ)M)):'* 

1416 RDEV=SQR<HEH[24nNS[2}/18868:HVEC»fmt<HNS/nEH) 

1428 nEH=4CIH1GSPDC0S<HVEC)-H9l>(28}«n)EV:MN5smS-^^ 

)4RM>(28)«RDEy 

1438 G0SUB5888:(i»SQR(nEH[ 2+rMS[2) 

1448 G0SUB2888 

1458 PlX=SN&WS»188+8. 5:IFP1X>999THENP1Z=999 

1468 P2!J=SElW€H*188te. 5: IFP2i>999THEW^=999 

1478 P3Z=SflLT/WLT*180rt. 5:IFP3Z>999THEKP32=999 

1488 Fr/i=Fr/J+l: IFED>1. 560T01158 

1498 CLS:PRINTCHR$<23) PRINT8288,'!! TARGET ACQUISITION !!Mi05U 

B4888:PRINT8486,'!! DETONRTION !!':G0S(JD4888:Ui==RND(18) 

1588 ia%>2T(CNPRINT8582, ' ! ! ENEHV ICBH DESTROVE^ ! ! * :G0SUB4888: 

aS:G0T0i828 

15i8PRM8568,''!! ICBH STILL FUNCTIONRL !!':G0SUB488e:CLS:Fr/;=8 

:P15{=8:P2Z=8;P3X=8:SEH=8:SH5=8.SflLT=6:G0TClie48 

2888 I*=IM(EV$:F0RP8Z=16438TO16445:POKEP8X,e:NEXTP8K:'« 

2818 RETURN 

3888 SEH=SEH+SGSPO*SIH(SVEC):SNS=SN5+SGSFO*COS<SVEC);G0SUB3588:' 

* 

3818 RETURN 

3828 SEH=SEH-S(e»D*SIN<SVEC):SHS=SNS+S6SPI>*C0S(SVEC):G0SlB35e8:' 

» 

3838 RETURN 

3848 SEH=SEH+SGSFD«SIN(SVEC):SNS»SNS-SGSPD«<a)S(SVEC>:G0S(JB3S88:' 

♦ 

3658RETURN 

3868 SEH=SEH-S6SPD*SIN<SVEC) :SN9^NS-SGSPD*C0S<SVEC) :G0Sie3S88: ' 

* 

3678 RETURN 

3588 IFSEHODTWNSEH^ND:'* 
3518 IFSEU>HSmENSEH»HS2 
3528 IFSNSODTtENSN&W 
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3538 lFSNS>VSfrHENSNS=VS{ 

3540 RETURN 

4080 F0RLX=lT015e8:MEXTLX:'* 

4810 RETURN 

5000 GD=S(JR<(MEH-SEH)*(HEH-SEH)+<HNS-SNS)*<MNS-SNS)):flD=flBS<mLT 

-SflLT) : ED=SQR( (GD*GD)+(flD*flD) ) : '* 

5810 RETURN 

8080 CLS:PRINT" VOU ARE THE RflDflR CONTROLLER RT ft SURFfiCE-TO-ftI 

R (SflH) HISSILE"; : PRINT "IHSTflLLftT ION 6URRDIN6 ft STRftTEGIC flIR CO 

HNflND flRER HEftDOMRTERS. "i :PRIHT"VOU ffiVE JUST PICKED IP fl RIBSI 

AN ICK1 HERDING VOUR HfiV AND ¥0U";'* 

8810 PRINT'LflUNCH ft SURFflCE-TO-fllR RISSILE TO INTERCEPT fiND DEST 

ROV IT. ": PRINT: PRINT" VOU CONTROL THE SflH'S DIRECTION OF TRAVEL 

BV THE INPUTTING OF":PRINT"THE PROPtil C'-^ftSS BEARING <1 TO 368 

C€GUES) WD TJ€ FWS.E OF" 

8028 PRINT'-CLIMB OR DIVE <1 TO 98 DEGREES OR -1 TO -98 DEGREES). 
":PRINT 
8838 PRINT" UITH EACH rEH RADAR SCAN VOU ARE ADVISED OF Ti£ NEH 

POSITIONS" :PRINT"OF THE ICBM AND THE SflH, AM) THE rtRCENTILE Rft 
TIO OF THE SflH'S"; PROPOSITION TO THE ICBH'S. AS THE DISTANCE 

NflRROHS, VOU HAKE THE" 
8048 PRIHT"NECESSflRV ADJUSTMENTS IN DIRECTION SO AS TO INTERCEPT 

THE ICBH ":PRINT"JUST HOLD DOHN Tl£ SPACE BAR HHEN VOU HANT TO 
EN1ER fl NEU":PRINT'6EflRIN6 OR ANGLE FOR TtE SAH. " 
8858 PRIIITTflB(2e)i :IWVT"HIT ENTER TO CONTIHUE"iHEH:CLS 
8868 PRINT' VOU NAV DESTROV THE ICBH BV COHING HITHIN 1. 5 HILB 

OF IT, ftT":PRINT"HHICH POINT THE SflH'S OI^BOflRD COHPUTERS HILL 
DIRECT IT TO ITS":PRINT"TARGET. IF VOU OVERSHOOT TtC ICBH, YOU 
CAN TURN THE SflH AROUD" 

8070 PRINT'AND CHASE THE ICBH BflCK TOHflRDS VOUR BASE. ":PRINT:PRI 
NT" IN THE UNLIKaV EVENT THAT THE ICBH SURVIVES THE DETONATION 
":PRINT"OF THE FIRST SAH, VOU CAN LAUNCH ANOTHER! BUT. . . " 
8888 PRINT8541, "366/1" :PRINT868L "315 + 45":PRINT866e,"27e 

+ + + 8 + + * 98";PRIHT§729,"225 + 135":PRINT8798,"188":P 
RINT8960,""; .INPUT"IF VOU'RE READV HIT ENTER TO BEGIN"; NEH; CLS 
889B RETURN 

9008 DflTfl"NORTH", "EAST ", "N. ", "E ", L 44, 897, 191, 188 
9818 DfrTfl"NORTH", "HEST ", 'H. '. "H. ", -92, 44, 939, 188, 191 
9828 DftTfl"SOUTH", "EAST ", "S. ", "E ", 1, 8, 1, 191, 143 
9830 DfiTft"SOUTH", "HEST ", "S. ", "H ", -92, 8, 43, 143, 191 
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$ DOMES 
BOOKEEPIN6 



for small business 
by Ro3er Robitaille, Sr. 

Based on the famous Dome Bookkeeping System, this program is designed to 
serve the small business with few employees. Uses the same chart of accounts as 
the Dome journal, with instructions on how to customize to your own needs. 
Presents data year to last week, this week, and year to date. Enter checks and 
deposits; receive screen or printed reports — account summary, check register, 
deposits, and profit & loss. Manual provided. 

Tape version, Level II, 16K (without Dome Journal) $24.95 

(with Dome Journal) $31.95 

Disk version, 32K (without Dome Journal $29.95 

(with Dome Journal) $36.95 

TheSatiwate Exchange 

6SouthStreet,Box68,Milford,NH03055 603-673-5144 

CROSS REFERENCE 
UTILITIES 

from Lance MIcklus 

RX (Disk Version) 32K,1 Disk Systems, on Disk 

$24.95 

XREF (Level II Version) Level II, 

on cassette . . . . $19.95 

REN U MX (XREF with renumber and rescue 

after reset) 

Level ll,16K, on cassette, $24.95 

RENUMBER (separately) $7.95 

TheSoHwareEjadiange 

6 SouthStKet,Box68,Milford,NH 03055 603-673-5144 
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NOTE: ST-80 is a trademark 
of Lance Micklus, Inc. 



by Lance Micklus 



The ST-80 family of 
smart terminal paclcages 

) 
Now you can have the right terminal package for your 
communication needs! From ST-80 UC -^ the simple, pre-set, 
inexpensive terminal program designed for users of THE SOURCE, 
lifflCRONET, and FORUM 80 — to the power and sophistication of ST- 
80 III, The Software Exchange has the package for you. 

All four programs Include the ability to use an ui:imodif led TRS-80 
keyboard to produce RUB, ESC, and other control characters for 
time sharing, software control of the RS-232-C board, repeat key, 
bell, software support for the three most common upper/lower case 
hardware conversions, and line printer output. 

ST-80 UC 4K Lever It cassette, $24.95 

This universal communicator program is an easy-to-use timesharing 
program for the beginner. Special features include preset parity, word 
length, and baud rate (regardless of switch settings on the RS-232-C board) 
for THE SOURCE, MICRONET, and FORUM 80, automatic testing of the 
RS-232-C board, and even spooling of prepared messages on tape directly 
Into FORUM 80 using a basic program supplied as a line listing. 

ST-80 4K Level II cassette $49.95 

The original smart terminal program for the TRS-80, ST-80 lets you 
reprogram your RS-232-C board from the keyboard, and run at different 
baud rates. Does not have auto testing of RS-232-C or tape spooling. 

ST-80 D 32K disk program, $79.95 

Special features include connection time clock, option of user-created 
translation tables for keyboard, gathering and pre-formatting data to be sent 
directly from diskto host computer, spooling of received files to disk or printer, 
editing of received files, and auto logon. If you use It with VTOS 3.1 , you also 
get device driven I/O, job logging, and chaining. 

ST-80 III 32K disk program. $150.00 
ST-80 D with extra utility programs 

TheSfM^ate Exchange 

6SouthStreet,Box68,Milford,NH03055 603-673-5144 
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NEW FROM ACORN SOFTWARE PRODUCTS, INC. 
LANGUAGE TEACHER SERIES: Spanish or French 

by Cindy and Andrew Bartorillo 

Tests you on nouns, verbs, pr miscellaneous words; tests your abilities at 
phrase translations, allowing you to choose whether to translate to English or 
from it; drills you on verb conjugation. You may choose multiple choice mode 
or "go It alone". Gives you running percentage of right answers; then retests 
you on missed answers, gives diagnostic results to show where you need most 
work, and generates printed tests! 

32K, disk only Specify language $19.95 each 

The Sattware Exchange 

6ScxJthStreet,Box68,Milford,NH03055 603-673-5144 
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Sooner or later 
someone had to write it! 
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32K, disk 
. . . $19.95 

Genealogy has become an enormously popular pastime (as well as a lucrative 
profession for some) in the last few years. 

The fascination is endless. Once you've come across your first amazing revelation 
— that you have a colorful ancestor who was a famous Indian Chief , or an advisor to 
an English King, or what-have-you — you're hooked, my friend, and as these people 
who were your progenitors come alive for you, like characters in a play, so does 
history itself light up like a stage. 

ROOTS is an indispensable aid for all genealogists, whether amateur or 
professional. Up to nine generations of data may be placed into memory per file. 
Allows display of known data concerning a given individual; display of four-generation 
pedigree; searches for specific information within a given category (finds all "Smith" 
last names, or all births in the 1890's, for example); sorts by any selected category; 
gives printed reports. 

IheSoAitare Exchange 

6 SouthStreet, Box 68, Milford, NH 03055 603-673-5144 
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The instructions for OIL BARON in the December 79 issue were 
incomplete. The following criteria must be met in order to become an Oil 
Baron: 

1) Gash reserves of at least $10,000,000 

2) At least 31 refinery units 

3) At least 20 Class "B" stations 

4) At least 15 Class "A" stations 

5) At least $150,000 spent on foreign lobby 

6) At least $75,000 spent on domestic lobby 

7) A crude to refined gas percentage of hX least 90%, 

8) At least 80% of your refinery units must have smog equipment in good 
working order 

9) AT least 20 domestic oil wells. 

(ThesearetheMINIMUMrequirementsanddo not guarantee a win. Aim for 
at least 50% above what is listed, to be safe.) 
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x-uiinii II 



by Chris Freund ^^^ 



For the thousands 
who have enjoyed 
X-VVing Fighter, 
X-Wing 11 presents 
a totally new element 
in the game! 



mm, 



You diX^ Pilot of 

^\ an X-Wing 

\ fighter ... 






Wliere X-Wmg I left Death Star 
>CTeen/X-Wing II lets you guide your 



aust por 



avoiding enemy ti 



bxceiier 



of play, and extensive INKEY 



lands make tl 



)st exciting 



reai-tin^e ganres. 



LevellL 16K - $9.95 



The SaHwai^ Exchange 

6SoutfiStreetBox68,Milford,NH03055 603-673-5144 




TYPING 
TUTOR 



by 

Roy G roth 

■^ 

You probably have often thought 
that it would be a lot easier if you 
didn't have to "hunt and peck" 
at the typewriter or 
computer keyboard. If you 
could only double your typing 
speed, the job would be done 
n half the time! And, with 
ncreased speed and confidence 
comes increased accuracy. 

Level 1 1, 16K — $19.95 

Typing Tutor is a set of programs designed to teach you touch 
typing — fronr> the basics of learning where the keys are, to 
practice drills at speeds that would nnake a Selectric shudder! Each 
lesson is displayed on the screen, including, at the early stages, a 
keyboard diagram. You are quizzed and graded, and you progress 
at your own pace. When you have mastered a lesson, the computer 
advances to the next, using GA I (computer aided instruction). 
Progress is fast, painless, and even fun as you keep pushing to 
break your own record. 

So, whether you're going back to school or just want to enter 
programsf rom SoftSide that much faster. Typing Tutor can help. 

Order a copy today and be a better typist by next week. 




6 SouthStmet, Box 68, Milfoid.NH 03055 603-673-5144 



Programming Problem? Question about a TSE Program? 

Try our Hotline... 

You can call our programmers direct on Tuesday nights from 7 to 10 PM, (EST) 

(603)673-5144 
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PROGRAMMING MADE 
EASY IN 580 BYTES 

A Product Review by Sherry M. Taylor 



What's worth its weight in gold, 
resides in 850 bytes of low 
memory, and Is God's gift to Level 
II programmers? Well, if God is 
Web Associates, the gift is T- 
SHORT: a neat little package that 
takes the hard work out of copying 
SOFTSIDE programs. 

T-SHORT gives the Level II 
TRS-80 shorthand capabilities. It 
works on the assumption that you 
have not made an upper/lower 
case modification or can switch it 
off at will. With T-SHORT loaded, a 
single shifted key will print on the 
screen an entire word or 
expression. It virtually eliminates 
syntax errors caused by 
misspelling or omitted paren- 
theses. 

Even if you are a bad typist, this 
program could save up to 50% of 
your programming time that could 
be better used developing your 
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program idea or debugging same. 
You will find however, that with 
fewer mistakes in often used 
commands and statements, you 
will even spend less time 
debugging a program. (Of course, 
if your favorite game is DEBUG- 
GING III.6, you may not want 
fewer mistakes.) 

A very useful feature is the 
KUSTOM key. The KUSTOM key 
is user programmed to do 
anything your heart desires. It can 
be changed at any time, so if your 
heart's desire changes a lot, 
there's no real problem. I usually 
use the KUSTOM key for the 
PRINT statement. Since I get most 
of my programs from SOFTSIDE 
line listings, I like the PRINT 
statement spelled out to matchthe 
spacing as it is given in the listing. 
Another good idea is to program a 
self-entering RUN command for 



use while debugging. Or, it 
worthing on a troublesome section, 
a GOTO ### might be in order. 
(There is already a provision for a 
GOTO 10 command.) 

You will find this program 
especially useful in the case of 
graphics strings. The old 
M$=CHR$(###)+CHR$(###)+ etc. 
type of programming is unnerving 
If you forget the ASCII code 
number before you can get all that 
preceding stuff typed. There are 
two ways to get around this with T- 
SHORT. One is to program 
KUSTOM to print an entire line 
such as this: CHR$(nnn) + 
CHR$(nnn)+CHR$(nnn). Then go 
back and edit In the numbers. 
Since the graphics strings are 
usually programmed together in 
the utilities section, you can 
change your KUSTOM key when 
you've finished and let it do some- 
thing else. If you need only a few of 
those CHR$'s throughout the 
program, the second way is to use 
the shifted "0" to print the entire 
expression "CHR$(". Now all you 
have to remember is the ASCII 
code and the closing parenthesis. 



There are 42 keys that will have a 
special shifted function with T- 
SHORT. So for those of us who 
have memories even more static 
than TRS-80's RAM, the program 
is supplied with decals to install on 
the keys indicating what the 
shifted version will produce. They 
are designed with white printing 
on clear plastic to give the nice, 
expensive "factory" look. 

The program is provided on 
digital cassette with Level II on one 
side and DOS on the other. There 
are two passes of each. Included 
are 4 pages of detailed 
instructions. The genius 
responsible for T-SHORT is Ron 
Wirtti and it is produced by Web 
Associates. It is available through 
The Software Exchange for $9.95. 

As far as I am concerned, no 
Level II TRS-80 should be without 
this program. I've often wondered 
how I lived so long without it. And, 
for those who don't need the other 
features of Level III*, T-SHORT is 
the only way to go. 

* Trademark of Microsoft 

see advertisement on page 37... 



A REVIEW OF 
WORD CHALLENGE 

by Scott Adams 



Word Challenge written by 
Richard Taylor and published by 
80-US is a software sleeper which 
has too long lain on the shelf. It is a 
fun-filled, lyrical game which is 
very, very addicting! 

Challenge is written in BASIC 
and pokes its own machine 
language routines as needed. It 
will run as easily on disk as on a 
16K Level III. the program first 



starts off with a very clever sight 
and sound sequence which is 
reminiscent of the newer 
electronic pinball machines found 
in todays modern arcades. It then 
allows you to select either the one 
or two player option. 

The basic rules to Challenge are 
simple, the player must guess a 
hidden phrase one letter at a time. 
The value of the phrase start^at 50 
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points. For each incorreGt 
consonant guessed 2 points are 
deducted and for each wrong 
vowel 10 points are knocked off! 
The phrases may be supplied by 
the computer or in the case of two 
players, by each of theopponents. 
Richard Taylor (who is well 
known for his TRS-80 Opera 
selections) has outdone himself in 
both sound and sight simulations. 
Besides being fun to play this 



program is also fun to watch! 
Unlike other word games this one 
is easy to learn and simple to play! 
Here at Adventure Computer 
Center we find this program is an 
instant crowd attractor. 

Word Challenge is destined to 
become a true classic, and is one 
program I can readily recommend 
for all age groups from 9 to 90! But 
don't take my word for it, go out 
and buy yourself a copy today! 
(And have an "Adventure" with It!) 



To order from The Software Exchange see advertisement this page... 





IBncsIliiaiTdl T®SJ7ll(o)ir 

TRS-SO Opera Theatre 

The finest musical program we have seen for the TRS-80. It deserves a 
quality amplifier. Amazing sound! Richard Taylor is an opera singer with a 
magnificent ear! 
Selections: 

• WILLIAM TELL OVERTURE • MUSETTA'S WALTZ 

• SEMPRE LIBERA • QUEEN OF THE NIGHT 

• LA DONNA F MOBILE 

Challenge 

"Didn't want to stop — neariy died laughing" • Scott Adams 

Word guessing game with sound effects, one or two players. Truly 
challenging and competitive. ' . 

Separately on cassette $9.95 (each program) 

Both programs on disk . ....... $19.95 (two programs) 

TheSaHware Exchange 

6 SouthStreet,Box 68,Milford,NH 03055 603-673-5144 . 
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T-HHOKT 

SHORTHAND for LEVEL II 
and DISK BASIC 

^TSHORT^'^ lets you type LEVEL II and/or DISK BASIC more 
quickly and accurately than ever before. Save up to 90% 
programming time and acliieve 100% accuracy. 

•^31 programming statement keys. 

■)!• KUSTOMJMicey, up to 64 characters - changeable anytime. 

^ 42 key decals (see picture). 10 area different for DISK users. 

■)f A single, shifted-key entry types entire statement on screen. 

-^ Fast, efficient machine language. 

^ Uses 580 bytes of LOW memory, i.e.: No IVIEM SIZE req'd. 

•)(• Comes on cassettes, one side LEVEL 11, the other for DOS. 

^ Compatible with DOS 2.1, 2.2, 2.3, NEWDOS, KBFIX, etc. 

^ DOS version loads to and executes from disk via TAPEDISK. 

■)(. Features self-entering commands: CONT; GOTO10: 
KUSTOIVI^M (Self-enter optional) 

^TSHORT^M w/4 page instruction manual $9.95 




6ScxjthStreet,Box68,Milfoid,NH03055 603-673-5144 



^standing Utilities from 
RACET Computes 



INFINITE BASIC 

Adds more than 70 commands to BASIC that can be merged in any combination 
to make efficient use of memory. Includes matrix read, inverse, transpose, 
identity, simultaneous equations, scalar, vector, and multidimensional array 
arithmetic, dynamically reshape, expand, and delete arrays, change arrays in mid 
program, read and write arrays on tape, copy elements, zero and move arrays. 
String functions include left and right justify, truncate, rotate, text justification, 
string centering, delete and insert substring, pack string, convert upper and 
lower case, translate characters, reverse strings, verify function, test number of 
occurences, masked string searches, encrypt and decrypt string, compress and 
uncompress string characters. High speed sort routines for strings and arrays, 
including multikey sorts, are also part of this package. 

For business users, an add on package includes multiple precision packed 
decimal arithmetic, with up to 127 digits of accuracy, binary search of sorted 
arrays, insert elements in sorted arrays, automatic page headings, footings, and 
pagination including forced end of page, and automatic hash for record 
retrieval. Infinite BASIC $49.95. Infinite business (add on) $29*95 

COMPROC COMMAND PROCESSOR 

Chain nnultiple steps in disk BASIC upon power up, relocatable key 
debounce, allows pauses for data entry at specified steps during 
execution (on cassette for disk systems only) for $19.95. 

DOSORT . 

BASIC controlprogram with high speed machine language sort for disk 
users. Merge and sort files on more than one disk if you have 2 or more 
drives. Selrprompting with manual. Specify 32K or 48K version $34.95. 

GSF GENERALIZED SUBROUTINE FACILITY 

18 machine language subroutines with easy access for BASIC users. Sort 
1000 element arrays in 9 seconds, read and write arrays to tape, 
compress and uncompress data, move arrays in memory, duplicate 
memory, fast horizontal and vertical lines, 5 routines for screen control. 
Specify 16K, 32K, or 48K version, for $24.95. 

REMODEL PROLOAD 

BASIC program utility allows you to renumber portions of a program, 
move portions from one location to another, delete, merge, save and 
verify combined and changed programs, and create your own library of 
programs, subroutines, and even data statements. Works on tape or aisk 
systems. Two programs on one tape. Specify 16K, 32K, or 48K 
(unspecified orders receive 16K) tape $34.95 
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TIMSER 

Time series analysis program fits data to 9 different 1st, 2nd/and 3rd 
order curves. Goodness of fit data, tables, projected data, confidence 
limits, curve fit, variance, correction factor, seasonal and cyclical 
variations, inflation corrections are all implemented. Detailed user 
manual with illustrated examples. Order tape at $T4.95. 

Y-YBAR 

Optical system design program allows manipulation of ray heights at 
lens surfaces using Y-Y Bar diagram method. With documentation on 
tape for $14.95. 

DISK SORT/MERGE 
DSM IS POWERFUL!!!!!! 

• Sorts large multiple diskette files on a minimum two drive Mod-I disk 

system. 

• All records are physically rearranged — no key files are required. 

• Sorts random files created by BASIC, including files containing sub- 

records spanning sectors. 

• Sorts on one or more fields in ascending or descending order. Fields 

may be character, binary integer, or floating point. 

• The sorted output file may optionally have fields deleted, rearranged, 

or padded. 

• Sort commands can be saved for reuse in production applications. 

• Single sort, merge, or mixed sort/merge operations may be performed 

in a single DSM application. 

• Sorted output may be written to a new file, or replace the original 

input file. 
DSM IS FAST!!!! 
DSM is written entirely in machine language for fast sorting. $75.00 



IheSoHware Exchange 

S 6SouthStKet,Box68,Milford,NH03055 603-673-5144 




SPECIAL 
CASINO 
GAMES 
SECTION 

pages 40 - 62 




39 




SLOT MACHINE 



by James A. Hagani 



At the machine next to you is a 
little old lady in red tennis shoes, 
dropping one silver dollar after 
another into her machine. Each 
time she pulls the handle, 15 more 
silver dollars come cascading out 
and right into a bulging paper bag. 

Tentatively, you turn to your 
own one-armed-bandit and drop 
the first silver dollar in the slot. You 
pull the lever— the wheels spin— 



and you get: a Lemon, an Orange 
and a Prune. 

6 hours, $493.00 and 986 prunes 
later, you decide to give up. You 
mutter angrily, "There's got to be 
an easier way to make a living!" 

"There is", says the little old lady 
as you pass by. "Do what I do. Get 
a job working for the management 
of this casino. You get to stand In 
front of one of these 'special' 
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machines and encourage the 
genuine customers by winning all 
day long! Well, sonny, It's time for 
my nap.", and she moves slowly 
off, down the rows of shiny slot 
machines. 

You look around. Has anyone 
heard? Did anyone see? It appears 
safe. You sidle up to her "special" 
machine, and slip In one of your 



last remaining silver dollars. As the 
wheels come to rest, you wait 
expectantly for your first payoff. 
What you see are: an Orange, a 
Potato and another Prune. 

The little old lady calls back over 
her shoulder, "By the way, sonny, 
when you work for them, they even 
give you "special" silver dollars to 
feed the "special" machines!" 
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28 CLEff? 1068 






28 C$=STRING$(12> " ") 
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58 ' 






Hi************************ 


68 ' 






# COMPU-SLOT HHCHINE * 


?0 ■' 






* BV JftPES ft. HflGftNI * 


m '■ 






* FOR LEVEL 11 TRS-:30 * 


96 '■ 






* WITH 16K OF !€I10RV * 


166 


/ 




* %. AN ft. K RADIO FOR * 


116 


•• 




*REftLiSTlC saw EFFECTS* 


128 


/ 




***#********************* 


136 Q0SLiB112e 






146 CIS: FOR X=% TO 


99: F0RV=2 TO 19: SET(X/t'):NEXT V: NEXT X 


156 FOR X=e TO 31: SET 


(X,l>:SET<X.46):f€XTX 


166 


FOR K = •: 


C TO 9fc 


: aT(X.19) : NEXT X 


176 


FOR V=l " 


■0 46:SET(6,V) : SETOLV) : NEXT V 


180 


FilR V=4 TO 22 : 


FOF; X=2 TO 62 STEP 36 


198 


SET<X,V) 


: NEXT 


X : NEXT y 


206 FOR V=5 TO 21:F0R X=29 TO 89 STEP 3e:SET<X/t') | 


216 


r€XT X . 


NEXT H 




226 


FOR K=2 TO 29 : 


SET<X,4) : SET(X.22) : NEXT X 


220 


FOR X=22 TO 59 : 


SET<X;4> ; SET(X,22) : NEXT X 


246 


FiDR X=62 


TO 89 : 


SET<X,4) : SET<X,22) : f€XT X 


250 


FOR X=54 


TOSS : 


SET(X,46) : bbi<X.45> : NEXT X 


266 


Fi3R V=48 TO 45 ; 


SET<54,V) : SET<85,'f) : NEXT Y 


276 


LET .J=0 


LET 0=6 1 


280 PR1NT8261, 


"COMPU- 


», :PRINTe277, "SLOT'S 


290 PRINTe290, 


"t«;HINE"j^ 
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388 a)SUBi876 

318 IF Hflf="e" TtCN Hfl=.25:l1fl$="ajflRTERS";60T0338 
328 Hfl=l.Mfl*="DOLLflRS" 
338 G0T0378 

348 PRINT § 558, "THflT'S TOO MM", 
358 PRINT § 622, "THE LIMIT'S $188"^ 
366 F1?INTe943, " "i 

378 PRIHT§687, "im nfWi"'i :PRINT(»?5i,ftfl$i " DO", ;PRINT§815, "VC« WI 
SH TO"i :PRINT88?9, "BET (1-5)"; 
3^ PRINT§924, "Pffr'-OFF WIf©(W"i 
398 PRINT@943, "OR 6=EN0 ?"; 
466 PRINT&954, " "; 

418 2$=IM<EV$;IF 2*="" Tt€N 418 ELSE 2=Vfl(2$):IF 2>6 OR 2=8 TH 
EN 41^ ELSE PRINTe953,2i 
428 IF\ 2=6 TfCN 2848 
436 22=2:2=2*ffi 
448 " 

458 0051*2168 

468 FOR V=2 TO 18 ; FOR X=% TO 99 ; RESET(X,V> ; NEXT K : NEXT 
Y 
478 FM? V=18 TO 2 STEP -1 ; FOR X=96 TO 99 : SET(X, V) ; MEXT K 
4^ NEXT Y 
498 FOR B=8 TO 8 
588 F0RC=138 TO 168 STEP i5;PRInT8C, "'■•■'•'■'-•^^"'■'•", :PRINTCC,« 

"iiNEXTC 
518. FOR C=i94 TO 224 STEP 15 
528 PRINT8C, ■•■-—- 
538 PRINTCC," »,:NEXTC 

548 F»: i>258 TO 2^ STEP 15 

550 pRir^§c, "■'■'■•"■"■'•'•'•'•"■'•'■•'■", 

568 PRINTS," ", ;NEKTC 

570 FOF; C=3-22 TO 352 STEP 15 

588 PRINTK, »-—--«, 

590 PRINTK, " "i:NEXTC 

6£« FOR C=386 TO 416 STEP 15, printK, "■"•••■•■■'•'■•■■— —", FRINTiC," 

"i ;NEKTC 
618 NEXT B 
620 FO? D=0 TO 2 
638 G0SUB1418 
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fl$(ffi)=H$<ffi)+CHRf <Q+10e) ; NEXTXK 



ffi$<XS>=Jffi$<ffi>+CHR$<Q+19e) 

f=ic$(KS)=fc$(xs)+c«?*<s+i0e) 

flD$<XS>=ffiit(XS)+Cm$<Q+lM) 



NEXm 
NEXTXX 

«£XTffi 



640 IF DO0 T^N FOR ffi=l TO 75:fEKm 

650 GOTO750 

668 FOR XS=i TO 7 

670 FOR XX=1 TO i2:RE«)Q 

686 FOR XX=1 TO i2:REffl)Q 

690 FOR ffi=l TO 12:REf©Q 

700 fm XX=i TO 12:REflDQ 

710 FOR »<=i TO 12:REflDQ 

720 hOTXS 

720 GOSIB1640 

740 RETIME 

750 XT=D*i5 

760 PRINT§O0+XL fl$(fl(D»i : PRINT§194+XT, flfil(fl<D) >; 

770 F1?INT§258+XLfffi$<fl<D»i :PRINT9322+XLfC$(ft<D»i 

7^ PRINT§286+XT,f©$<fl(D))i 

790 NEKTD 

Sm 'PflVOFFS 

810 Pft=-1 

820 IF ft<0)=5 THEN Pfl=l 

858 IF ft<8)=5 AND fl(l)=5 THEN Pft=4 

340 IF fl<0)=fl<i) AM) fl(l)=fl(2) fm fl<i»=3 AND fl(l)<=7 THEN Pfl=7 

858 IF fl<0)=ft<i> AND <A<0>=i OR A(8)=2) THEN Pft=15 

868 IF A(0)=2 AND ft<i>=2 AND A<2)=2 THEN PA=29 

870 IF A<0)=i m> A(l)=l m> A(2)=l THEN PA=49 

888 IF PA>0 THEN GOSUBi778:(i(H.I822^;GOTOi0e0 

^e 6=6+(2*PA) 

900 LET J=J+1 

918 PRINT§242, "YOJ m. NCW"i :PRINT§3?1," "; 

928 IF G<0 THEN PRINT§289, " LOSING^ :PRINTi27L"$"iABS<6)i 

930 IF 0=8 Tl€N PRINT§289i " EVEN % :PRINTB7L" WITH ME"; 

948 IF G>0 Tt£N PRINTe309, "WINNir«j"i ;PRINT8271,"t"iGi 

958 PRINTe499, "TIMES PLAYED"; ;PRINT§566,Ji 

960 GOTO 278 

978 LET F=iM:80T0 18^ 

988 LET F=5 : GOTO 1088 

990 LET F=2 

1808 FOR H=8 TO 2 

1018 PRINT8924, " "; 

1028 PRINT i 927, "PAV-OFF".; 
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1830 FOR m=B TO 198 . NEXT QS 

1848 F-RINT I? 92?/ "VOU WIN"; 

10f€ F,ORiQQ=0 TO 100 ; r£XT as 

1060 Pf?INT C* 927, " 

1070 PRINT § 926, "$", 2*(Pft+l)i 

1080 FOR QG=0 TO 138 . NEXT QQ 

1090 PRINT C* 926, " ", 

1100 rCXT H ; GOTO 898 

1110 Em 

1120 PRINTCHRf(23), 

1128 PRINT@404,"eOt1PU-SLOT";PRINTe458,"SOUfC'ING ElOT MftCHINE":PR 

INT 

1140 PRINT" FOR TRUE SOUT© EFFECTS, PLflC:E».PRINT"fiN fi. II. RflC'IO N 

Effl? THE KE'iBOflRD.": PRINT" -WORKING-" 

1150 GOaiB660 

1160 PRINT :PRINT"DU VOU WISH TO PLfiV fi QUARTER" :PRINT"OR fi DOLLfl 

R HtCHIfC (Q/'D)? "i 

1176 m$=INK£V*;IF !1ft$="" THEN 1178 ELSE PRINTflflf 

1180 FO? »!=lT028;NEXT:CLS;RETUi^ 

1190 3 LII€S OF DATA FM? E«:H:mR-BELL-3BaLL-flPPLE-a€RRV-!€L£W 

-STAR 

1200 DATA 43, 43, 42, 43, 41, 43, 43, 42, 43, 41, 43, 43, 91, 31, 71, 48, 68, 51 

1210 DATA 71, 48, 78, 51, 31, 89, 91, 48, 74, 45, 91, 48, 48, 91, 70, 89, 56, 35 

1228 DATA 91, 76, 86, 33, 91, 28, 28, 91, 78, 49, 39, m> m, 88, 72, 38, 56, m, 

88,72,88,56,®,^ 

1230 DATA 28, 28, 28, 84, 9L 91, 91, 91, 88, 28, 28, 28, 28, 28, 70, 91, 91, 91 

1248 DATA 91, 91, 91, 49, 28, 28, 28, 28, 91, 91, -34, -31, -24, -24, 91, 91, 28 

,28,28,84,91,91,91,91 

12K DATA 91, 91, 91, 91, m, 28, 58, 31, 31, 28, 28, 86, 81, 28, 28, 31, 31, 73 

1260 DATft 28, 28, 76, 52, 40, 40, 40, 40, 64, 44, 28, 28, 52, 34, 29, 28, 28, 28 

1278 DATA 28, 76, 76, 78, 37, 64, 49, 28, 28, 28, 28, 28, 70, 91, -44, 91, 49, 70 

1288 DATA 37, 64, 44, -34, -35, -24, -24, 38, 31, 63, 52, 34, 28, 28, 38, 37, 40 

,40,40,40,34,28,28,28 

1290 DATA 28, 28, 60, 76, 44, 78, 49, 68, 76, 44, 28, 28, 68, 96, 91, 91, 91, 96 

1308 DATA 89, 91, 91, 91, 89, 44, 91, 91, 91, -35, -20, -20, -24, -31, 91, 91, 9 

1,91 

1310 DATA 39, 91, 9L 91, 91, 91, 91, 91, 91, 91, 91, 35, 28, 30, 75, 91, 91, 91, 

91,91,91,59,29,28 

1320 DATA 28, 28, 31, 40, 85, 82, -33, -28, -31, -18, -18, -11, 28, 28, 28, 28, 



44 



76, 75, 81.28, 28, 28. 2& 28 

1330 DflTfi 28, 28, 52, 31, 28, 78, 46, 73, 44, 28, 28, 28, 66, 88, 83, 44, 28, 84 

1346 DfiTfi 89, 88, 39, 88, 28, 28, 39, 91, 9i, 35, 38, 75, 91, 59, 29, 38, 29, 28 

1358 DflTft 68, 98, 9L 91, 91, 91, 91, 91, 31, 31, 86, 28, 98, 91, 91, 91, 91, 91 

1368 DflTfl 59, 29, -42, -66, 38, 73, 91, -23, -31, -24, -21, -22, 49, -42, -56, 

-41,-61,78 

1370 DflTfi 75, 91, 91, 91, 91, 91, 89, 44, -66, -54, 68, 58, 38, 75, 91, 91, 91, 9 

1, 91, 91, 76, 76, 35, 28 

1388 DfiTfi 71, 83, 76, 88, 56, 88, 76, 28, 28, 2o> 76, 76, 78, 91, 36, 72, 49, 91, 

9L 67, 55, 51, 56, 74 

1398 DflTft 78, 91, 86, 91, 89, 88, 91, 68, 48, 81, 79, 86, 78, 51, 31, 28, 28, 31, 

31, 43, 43, 43, 31, 31 

1488 DftTfl 78, 49, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28 

1410 'HHEELS 1-3 

1426 ft<D>=RrD(ll):ON D+i GOTO 1448 ,1518 ,1596 * 

1430 'WHEEL 1 

1440 IF ft<0)=l OR ft(6)=2 THEN RETURN 

14^ IF fl*;0)=3 OR fl(0)?:4 Tt€N fl<8>=3:RETURN 

1460 IF R<0)=5 OR fl(0>=6 OR H(;8)=li THEN fl';8)=4 : RETiJRN 

1478 IF ft(8)=7i3R ft<8)=8 THEN fl(0)=5: RETURN 

1488 IF R<0)=9 THEN fl(0)=6: RETURN 

14^ ft(0)=?. RETURN 

1500 'WHEEL 2 

1510 IF fl<l)=l TI€N aCl)=l; RETURN 

1520 IF fl(l>=2 OR ft(l)=3 THEN ft(l)=2 . RETURt^ 

1530 IF fl<l»=4 RND fl<i)<=5 THEN fl(l)=3. RETURN 

1548 IF fl<l)=6 THEN fi(l)=4:RETl«N 

1550 IF fl(l)=7 THEN fl<i)=5. RETURN 

1560 IF fl(l)=8 OR ft(l)=9 THEN R<1)=6: RETURN 

1570 ft(l)=?: RETURN 

1588 'tftCEL 3 

1590 IF fl(2)>=i FM) fl(2:K=4 THEN RETURN 

1600 IF fl(2)=5 THEN R(2)=4: RETURN 

1618 IF ft<2)=6 OR fl(2)=7 THEN ft<2)=5: RETURN 

1628 IF ft<2)=8 OR R<2)=9 THEN ft<2)=6;RETURH 

1630 fl(2)=7: RETURN 

1646 RESTORE :F«? XS=1 TO 7 

1^0 FOR XX=1 TO 12:REflDQ:IF 8<0 THEN Q=119-Q 

1668 B$(XS)=B$<XS)+CHR$<^19-Q):f£XTJ0< 
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1678 FOR XX=1 TO i2:REflDQ:IF SKB THEN Q=119-Q 

1688 Bft»(XS)=Bfi»<XS)+CHR$(2i9-e) :NEXTXX 

1698 FOR XX=1 TO i2:REflDQ:IF Q<0 THEN Q=119-Q 

1788 BB*<XS)=BB$(XS>+CHR$(219-Q) -NEXTXX 

1718 FOR XXsl TO 12.REflOQ: IF Q<e THEN Q=119-Q 

1728 BC$(XS)=6C$(XS)+CHR$(219-Q> ;NEXTXX 

1738 FOR XX=1 TO 12:i^H)Q;IF Q<0 TtCN Q=119-Q 

1748 H)l(XS)=Bl»<XS)+CHRI<a9-Q) :»€XTXX 

1758 NEXTXS 

1768 RETURN 

1778 FOR DZ=1 TO 5: FOR D=8 TO 2.XT=D*15 

1788 PRINT808+XLB*(fl(D»i :PRINT8194+XLK»<fl(D)).i 

1798 PRINT§258+XT,BB*(ft(D)), :PRINTe222+XLBCI(fl(D)), 

1888 PRINT8386+XT>BD$(fi<D))i 

1818 PRINTei28+XT,C*i :PRINT§194+XT,C*i ;PRINT8258+XT,C$i :PRINT932 

2+XL C*; :PRINT8286+XL C*i 

1820 PRINT8i38+XLfl$(fl<D)>i :PRINT8194+XT,m$<fi<D))i 

1838 PRINT@258+XT,flB$<fl<D))i :PRINTg322+XT,(K$(fl<D»; 

1848 PRINT@3^+XT.ffl>$(fl<D!»i 

1850 NEXTD:NEXTD2 

1868 RETURN 

1878 'PRINT PflVOFF Cl^imTIONS m SLOT fSCHINE 

1880 PRINT§50, " PftVO^FS FL«i FLftG FLffli. . . 8"; 

1898 PRINT&577, "CJ€RR¥ - . . 2 BELL BELL — -. . 16"; 



.5 BflR BflR — ...16"; 
. 8 BELL BELL KLL . 38"; 
.8 m. B«? ^ ..^«, 
, 8"; 
.8", 



1988 PRINT864L VCHERRV CHERRV ~- 

1918 PRINT8785, "CJ€RR't' CHER'RV (mm 

1928 PRINT8769, "8-SlL 8-BFlL 8-BfLL 

1938 PRINTi833, "fPPLE iWLE APPLE. 

1948 PRINT^9?, "ICLON m.m HELCM 

1958 SET UP SCCKE MfSJDS 

I960 PRINT8116, •* SCORES *"; 

1978 FCR X=181 TO i26:S£T(X..?):aET(K,i9);SET<X,27);tCXT 

19^ Fm V=7 TO 27:SET(i8L'T'):SET(i26,V):J€XT 

1998 FOR V=28 TO 27:SET(181. V) :SET(126. V) ;NEXT 

2080 'SET \SP COIN SLOT 

2010 FOR K=128 TO 125 : ST (X, 29) ; SET(X, 46) : ICXT 

2828 FOR V=29T046 : SET (128, V) : SET(12'5. Y) : NEXT 

2836 m\m 

2848 'TFINISH PLflV 4 DETERHM OUTCO«II« SCORE 
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285e CLS:PRINTCHR$<23); 

2868 PRINTTflB<18)i "COMPU-SLOT" 

2870 PRINT8258, "AFTER PLflVING THE COMPU-SLOT" 

2888 PRINT"HflCHINE"i Ji "TIMES, VOU FINISHED" 

2890 IF (K8 THEN PRINT"L0SIN6"if€S(G)i"D0LLfflm!":Pi?INT"TCO BflD 

mm m your" 

21W IF G=0 THEN PRINT'HITH fS HUCH flS VOU CfflC WITH! !":PRINT"W 

U ms. LUCKV BECfiUSE VOJR" 

2110 IF G>0 THEN PRINT'HIWilW"; Gi "DOLLfflS! ! i ! !":PRINT"VOU m. V 

ERV LUCKV BECfiUSE VOUR" 

2120 IF J>8 TICN PRINT"flVEW«jE PER PLflV WS";(j/J; " ! ! ! " 

2130 IF J=0 THEN PRINT'flVERflOE HfiS fl BIG '0' PER PLftV!":PRINT"VO 

U RERLLV KNOU HON TO GflHBLE! !" 

2140 PRINT"HHV DON'T VOU NOtf TRV THE WHEEL" ;PRINT"OF FORTUNE? I 

HEfiR THE HONEV-:PRINT"REflLLV HOVES OVER THERE! ! BVE! !" 

2150 END 

2160 'INSERTION OF COINS INTO COIN SLOT 

2178 FOR XX=1T0ZZ 

2180 PRINT078L "C'i :PRINT8765, "L"i :PRINT§829, "I"i :PRINT§892, "C"j 

:PRINTW57, V; 

2198 FOR XS=1TO180:NEXTXS 

2200 FOR X=701 TO 957 STEP 64:PRINT§X, " "; :NEXT 

2210 FOR KS=1TO100:NEXTXS 

2220NEXTXX 

2210RETURN 

2300 'WINNING TUNE 

2310 FORK=1TO100: : .mv/////////////////// 

2320 NEXT 

2338 FORK=1TO180 : : : mi//////////// 

2340 NEXT 

2350 FORK=1TO108: :«BV///////// 

2368NEXT 

2370 F0RK=1T0128:REM////// 

2380 NEXT 

2390 FORK=4TO120::REI1/////'//'/// 

2488 NEXT 

2418 F0RK»lT0258:REIi'///// 

2428 NEXT 

2438 RETURN 
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It is 2 a.m. in the smoke-filled 
room. The Cincinnati Kid has an 
Ace in the hole — an Ace and 2 
Kings showing. Louisville Lucky 
has a Seven In the hole and 
another Seven showing. The Kid 
speaks softly but with an 



undercurrent of confidence in his 
voice, "I'll see your $50.00 and 
raise you $100.00". 

Lucky Is down to his last $50.00 
chip. He tosses it into the pot. "I 
paid $70.00 for my horse, 'Old 
Saddlebags'", he says. "You win 
this hand. Kid, and she's yours." 

"You'll be walking hometonight, 
Lucky", the Kid murmers as he 
reaches for the fateful card... 

"^ by David Bohike ,^-^ 




*** 

20 aE«?200 

22 DEFINTfl-Z:DI« D<51) 

58 GOSUBi0M 

60 FC«I?=lTO5;H(iy=200:NEXT 
78 CLS;PRINT"F I V E C R R 



16 AUG 79 



T U D"; PRINT; PRINT 



71 PRINTC«256,"( 8 MEWS T^€ COPPUTER WILL PLfiV fiLL FIVE HANDS 
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:PRINm92,"", 

?2 INPUT "HOi IfW PLflVERS <8-4) "iNP:IFW^<80IW>4,RUN 

73 IFNP=e,P$(5)=-'LflST":GOT098 

74 PRINT ;FORI=iTONP:PRINT.''<ENTER> Nfll€ OF PLflVER « Mi 
76 INPUTP$<6-I):P$<6-D=LEFT$(P*<6-I),7):NEXT 

98 E&=i5+»®(5) 

99 REM *** miN (»ME LOy *** 

198 FOR QM=i TO EG:CLS;PT=e:DP<8>=5 
102 PRIMT§52, "DEAL riGHi 

118 F0RI=8T05i:D<I)=8:NEXT 

128 PRINT§968, "MfTE = $18"; 

148 Fa?I=lTC6:l1(D=H(l>-10:PT=PT+10:PRINT§I*192-192, P$(I) 

142 PRINT"r.H(D> :KISUB15M:DP(I)=8:B(I)=8:tCXT 

168 F0RI=iT05 

165 PRINT§I*192-64;STRI»«i$<51, 14e)r:IEKr :PRINT§8%, a«$<21)i 

199 REH *** CVaE FO? FM Cffi?DS *** 
im FOR CD=1 TO 5 

282 PRINTe896.CHR$Gl)i 

210 BT=8:F0RI=lT(5;PD<I>=8.hefr 

249 KM »** CVCLE F(» FM PLfftfRS *=m= 

258 F0RPL=1T05 

252 IFDP(PL»0,275 

268 QCSlB1186:i£M (£T NEU CRRD 

265 IFCD=LPRINTePL*192-192+CD*9,"? "iS$(0)i :(»TCE75 

276 PRIHTm.*192-rl92+CD*9. N$i " ", S$(S<PL CD) ); 

275 NEKT:IFCD<2,4^ 

290 PRINTe960, "JUST ft SECOND WHILE I 6€CK MV Cf«DS . . ."; 

299 REM *** EVfLURTE CARDS SHOHI>Bj *** 

300 fl=2:(MSUB2i^ 

210 NB=4< ; IFV(N)<200, NB=r« 

215 lFCD=5>fl=l:QOaJB2M0 

22-0 F1=^B:PR'=0.FR=0 

229 REM *** BETTING SEOOCE *** 

320 IFDP<PL)5-0,290 

240 IFPU6-NP GOSIB 4800;(aTO390 

2^ G0SUB2^8 

290 PL=PL+l:IFPL=6.PL=i 

291 IFR=0,FR=BT 

292 IFPL<>NB,330 
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293 P1=PL+1:IFP1=6,F1=5 

294 IFFR=BT AND PO<Pi)=BT, 488 
395 IFPR=0, PR=i : PL=NB : Q0T0328 
468 NEXTCD 
51BPRINT§896,CHR$Gl>i 

512 PRINTe96e, "FINflL TftLLY . . . "i 

528 FORI=iTO5;IFE**(I»e,530 

522 PL=I:CD=1:G0SUB1128:PRINT8192*I-192+9,N*>" ";S*<S(Ll))i 

538 NEXT 

535 CD=5:fl=i:G0SUB2eee 

526 IFV(N><288,N=NH 

538 IFV<NK2e0,N=NH 

548 PRINTi9i8,P$(N);" WINS THE $"jPT; 

558 M(N)=«<N)+PT:PRINTgN*192-i28,H<N)i 

568 F(SI=iT0999:NEXT 

mi IFNP=e,^ 

898 PRINTe968, "<ENTER> FOR NEXT HfiND "i ;INPUTfl* 

908 NEXT QH 

918 PRINTK96.CHR$(3i)i 

928 PRINTi968, "PRESS <ENTER> FOR RNOTHER GflME "; :INPUTft$:RUN 

999 REM *** PRINT STRIMiS *** 

1888 P$<1)="TRS'' :P$<2)=''KID" :Pf (2)="Da:" :P$(4)=''BftLK" 

18^ D*=CHR$<26)+STRING$<4,24) 

1018 fl*=GH?$<15i)+CHR$<179)+CHR$(14?)+CHR*(149)+D$+CHR$a41) 

1812 S*<0)=fl$+STRING$<2>148)+CH?$(123) 

1^8 fl$=Ct«$<176)+CH?$(159^+CHR$<181)+CH?*<144)+D$+CHR$(121) 

ia22 S*<l)=fl*+a«$<12?)+CHR$<121)+CHR*(129) 

1020 R$=CHR$<160>+CH?$(1%)+CHR$(1^)+" "+D$+" " 

1022 S*<2)=fl*+CHR$(139>+Cl«$(129)+" " 

1840 fi*=a«$(166)+CHR$<137)+CHR$(162)+CHR$(i22>+D$+" " 

1042 S$<2)=fl$+a«$<13?>+CHR*<129)+" " 

1050 fl*=CHR*<168)+CHR$(158>+aiRf<l^)+" "+D$+CH?$<:i31) 

1052 S$(4)=fl$+CHR$<138)+CHR$(128)+CHR*<i29) 

10^8*=" •'+D$+STRIMjf(2,24)+" 

1078 RETURN 

1899 REM *** PRINT CfiRD SUITS *** 

11^ R=RM)<52>-1:IFD(R)>0, 1100ELSED<R)=2 

1110 S<PL. CD)=INT(R/12)+1:N<PL CD)=R-INT(R.^i3)*i3 

1120 N=N(PbCO) 

1125 IFN<8, N$=RIGHT*(5TR$<N+2), 1) ; RETURN 
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iO0 iFN=8,N$="T"ELSEIFN=9,NI="J"ELSEIFf#l&N$="Q" 

1140 IFN=li. W=»K"ELSEIFN=12. N$="fl" 

1158 RETURN 

1439 REM *** POT BflF: QRfiF'H *** 

1506 FClRIl=lT016:PRINT(SII*64+121>(ll-ID*42i ;hEXT 

1505 PRlNTe8%, "POT"; 

1510 J=INT<PT/42:) ; K=F'T-J*42 : iFJ=0. 1550 

1515 IFJ>12,J=12 

1520 F0RII=lTCa;PRINTe(O-II)*64+56,STRING$(7,19i)i MXl 

1550 H=112 : IFJ=0, V=i8ELSEV=(12-J)*2+2 

1560 FORI I=1T0K ; ^T CX. V ) : X=X+1 : IFX>125, X=ii2 : Y=V-1 

1570 NEXT .RETURN 

1600 RETURN 

1999 REM *** fiSSICiN POINT VALUE Ta Hfl{«»S *** 

2000 F0RI=1T05 : V( I )=0 : VH< I )=0 ; NEXT 
2026 N=0:HC=0:F(KI=flTOCD 

2020 F0RJ=iT05 . IFN( J, 1 ))-HC. HC=N<X I ) . N=J 

2040 NEXTJ,i;VH(N)=VH(N)+CD 

2200 IFCDa.2908 

2210 F0RJ=lT05;B=fl 

2220 FORI=ftTiXD ; IFB=L 2258 

2230 IFN(J, D=N(XBJ/V(J)=V(J)+N<X l>+i00 

2250 NEXT :B=B+1:IFB<CD+L 2220 

2260 NEXT 

2400 IFCD<4,2900 

2410 FOR:J=lTO5:X=0:FORI=flTOCD-l 

2428 IFS(X I)=S(J. I+l), 2420ELSEX=1 

2420 NEXT 

2540 IFCD=4 M) X=0,V(J)=50 

2558 IFCD=5 fm X=0, ¥<J)=90; IFfl=2, B(J)=1 

2560 fmi 

2600 FORJ=lTO5;X=0;B=fl 

2685 FOFd=fiTCCD 

2610 IFflBS(N(J, I;H«J,B))<5,2620ELSEX=1 

2620 NEXT :B=B+t : 1FB<CD+L 2605 

2678 IFCD=4 (m X=0 AND V(J)<198. V(J)=48 

2680 1FC.D=5 AND X=0 flrC* V<J)a90,V(J)=70.IFfl=2,B<J)=l 

2690 NEXT 

2695 IFCD<5.2300 
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2?ee F0RI=iTC6:iFV(l»i59 AM) V(I>a78.V<I)=1380 
2784 S<=0;FORJ=iTt5: IFN(L J»X, K=N<L J) 

2706 r«KT 

2707 IF^KI)=70 m> fl=LV(I)=688+S< 

2708 IFV(I)=90 M) ft=L¥a)=780+X 
2710 r€XT 

29M HC=e : N=0 ; FCiRJ=lT05 : IFDP( J):>6, ¥< J)=0 

2905 IFV(J»HC,N=J;HC=V(J) 

2910 NEXT 

2928 HC=0;NH=0:F(KJ=1TCS:IFDP(J)>8,VH<J)=0 

2925 IFVH(J)>HC,NH=J:rt;=V<J) 

2930 ]tlEKT; RETURN 

2999 REtl *** HUmN BETTING SEQUENCE *** 

urn PRiNT§8%,CHR$01); 

2982 fl$=I^KEV$ 

3818 PRiNTC«96, "OPTIONS : ", 

3020 PRINT"R=RftISE C=a=LL D=DROP X=CHECK"j 

3028 PRINT" V=SEE DOJN Cffi?D"i 

3825 PRM@960,"riBT-PD<PL),nO . . . ", 

2840 PRINT"< ".;P*(PL)i" > : CHOICE ?"i 

2im C$=INKEY$ : IFC$=" ". 218KLaPRINTQIi 

3118 IFC$="C",22^ : 

3128 IFC$="R".. 2260 

3120 IFC$="D'',2400 

2140 IFC$="K«.2500 

2150 1FC*="V", 3608 

3168 PRINT@1885, "ILLEGAL ENTRY"; 

3170 FORI I=1TO10M: NEXT :GOTO2060 

2200 B=BT-PDCPL);IFB=0, RETURN 

2218 I1(PL)=t1(PL)-B : PT=PT+B : PD<PL)=PD(PL)+B ; GOSt«1500 

3215 PRINTePL*192-128, "$"; «(PL)i 

3228 RETURN 

3388 PRINTC-896,CHR$<31)i 

3382 IFPR=1PRINT&960. "NO RAISE THIS ROM) !?"i ;GOTO2170 

3318 PRINTiSS96. "0. K. "jP*(PL).", HOi MUCH OF fi RAISE (1-9) 

3320 C$=INKEV$: IFC$="", 3326ELSEPRINTC$;R=VAL<C$) 

3322 IFRa OR R>9. 2308 

3325 B=BT-PD<PL);BT=BT+R 

3330 PT=PT+R+B : ri(PL)=M<PL)-R-B : PD<PL)=PD(PL)+R+B : GOSUB1500 
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3480 DP(PL>=l:F0RI=lT05:PRINTei92*PL-192+9*LB$i : NEXT: RETURN 

35M IFBT-PD(PL)<>8,3160 

3510 RETURN 

36^ PRINT08SI6, CHR$(3i). 

3610 PRINT§8%, "fWY OTHER JWIFW PLflVERS SHOULD l\m MH, M) VO 

U CRN" 

3620 PRINT"SLI(a^TLV COVER VOUR DWH CARD WHILE IT IS DISPLRYED. " 

3625 CE=CD : CD=i : QOSUB1120 ; CD=CE 

3630 PRINT§i92*PL-192+9, N*i " "iS$<S<PL.l)), :FW.II=1T0999;NE)<:T 

3640 PRINT0192*PL-192+9, "? "..S$(0), .{jOTO3000 

3999 REM *** COMPUTER BETTING SEQUENCE *** 

4900 T=V(PL>:PRINT0896.CHR*<3i)i :IFT=0,T=VH(PL) 

4005 PRINT@960,P$(PL>.i" 'S TURN. . ♦ ".; 

4006 F0RI=1T0999; NEXT; REM HDD GUESS REMS HERE 
4010 Dft=0 ; DB=0 ; F0RI=1T05 : IFI=Pb 4020 

4012 IFT-V(I»mDfl=T-V(D 

4014 IFV(D-T:>DB.DB=V(D-T 

4020 NEXT: IFDB:^,Dfl=0 

4030 B=BT-P[J(PL) 

4090 IFDfl=DB.DB=l:Dfi=0 

4100 IFPR=i,4300 

4104 IFCD>3 fit© (T:>30 and T<99>,R=^kN[)<3)+3.GOTO4600 

'4105 IFDfl>300,R=RND<3)+6:GOTiD4600 

4106 IF B(PL)=LR=Rr€!(3)+3;GOTO4600 

4110 IFDfi>l^,R=RND(3)+3:QOTO4600 

4120 IFOft>0, R=RND(9) : (a3T0468e 

4130 IFC»<4 HND BT>0 AND BT<5 M) RND<4)=1,R=RND<3>;GOTO4600 

4140 IFDB<20 9m CD<4 M) BT=0 fll® Rf*(2)=LR=R»«)(3);QOTO4600 

4195 IFPL=NB,R=RM)(3)+2:G0T046^ 

Aim IFCD<5 AND M<PL»400 AND RW)<2)=LR=RND(3):G0T046ee 

Aim IF BT=0 m B=0, 481^ 

4310 IFCD=5 m) PL=fffi,4500 

4320 IF BT<10 AND CD<4,4500 

4330 IFPR=1 (WD B<6 AND DB<2M AND CD<5,4500 

4350 IFDB>200 FWD CD>3 AND RND(2)=i. 4700 

4360 IFDB>0 m> H=l AND RND(3>=L 4700 

4370 IFDB>300< 4700 

4380 IFBT>13 AM) ViPDaO AND C:D>3,4700 

_ 



4390 IFDB>i4 m> CD=5 fiND V<PL)<40, 4790 

4400 IF B>0..4500 

4490 GOTO4800 

4500 PR!Nre960,"I'LL SEE THfiT $".;eT-PD<PL), ", RND ChLL. ", 

4510 F0RI=1T0999 : NEXT : e=eT-PD<PL) ; GOTO3210 

4600 IFBT-P[)(PL)=0,4650 

4610 PRINTCSSe, "I'LL SEE THE *"i8T-P0<PL).i " AND "; 

4620 F0R1=1T0999 ; NEXT : B=BT-PD<PL) 

4650 PRiNTi?960/" I'LL RAISE IT BV $",R.. 

4660 F0RI=1T0999 : NEXT : BT=BT+R : (iOTO3230 

4?^ PRINTi?960, "I'LL DROP !?", ;FORI=iTOi00ki:NEXT 

4710 QOTOS400 

4800 PRINT§960," I'LL JUST Ci€CK , . . ", 

4810 FCRI=iT0999: NEXT: RETURN 

4999 REM *** DIRECTIONS *** 

5000 CLS;PRINT"F I V E C ft R D S T U D":PRINT 

5010 F-RINT" THIS PiMR GflME IS FOR 9-4 PLftYERS. EftCH GftME W 

ILL HftVE" 

5020 PRINTTIVE PLflVERS - THE COMPUTER MILL PLftV ftfft' HANDS NOT P 

LfiVED BY" 

5020 PRINT">*««IS. Ot€ CMj WILL BE DEFLT DOWN, flt«i THE REMftlNI 

NG FOU?" 

5040 PRINT'-CfRDS WILL BE DERLT UP YCflJ MftY HfiVE OIC BET (OR RftI 

SE) ON" 

5050 PRINT"EflCW CftfJC- TURNED' UP. " 

51^ PRINT" EACH QflME WILL CO^BIST CF 15-20 DEALT mm. EV 

ERY" 

5110 F'RINT"PLAYER WILL STFfiT WITH $200, AND THEF£ IS A $10 ANTE 

FOR EACH" 

5120 PRINT"Hf*ID. IF THERE IS ft TIE HftND, THE PLftVER FIRST RECEI 

VING THE" 

5B0 PRINT'TIE Cf«DS WILL WIN T^€ POT. mm PLftYERS WILL HAVE 

TO ftO^EE" 

5140 PRINT"a< A METHM) TO LO«S( AT THEIR DOWN CFRD SO THE OTHER P 

LAYERS" 

515« PRINT"C»I'T SEE IT. THE WINhER IS THE PLfWER WITH THE MOST 



5160 PRINT"AT THE END Cf THE GAME. " :PRINT 

5200 PRINT"<ENTER> TO CONTINUE . . . "; :INPUTft$; RETURN 
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DRAW POKE 

by Lee Bluinenthal 
and Joel Williard 

The cute chorus girl by his side 
had been bringing him lucic all 
evening. He felt sure that the 
combination of his skill and her 
lucky brown eyes was responsible 
for the sizable pile of chips before 
him on the green table. All he 
needed was to win one more big 
pot and he could buy that farm he 



had always wanted. He could 
settle down there — maybe with 
this very girl — and never touch a 
deck of cards again. 

He looked at his hand: the Ace, 
King, Jack and Ten of Hearts, and 
the Three of Clubs. 

He looked at the brown-eyed 
girl, and the smile she gave him 
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was all he needed. He threw down asked, "So what's your name, 

the Three, turned to the dealer and honey?". 

said. "I'll just take one". "Queenie Hart", she replied with 

The new card slid silently across a loving look, 

the table. He picked it up but did vvith difficulty, he tore his gaze 

not look at it yet. Instead, he from her eyes and looked at his 

turned to the brown-eyed girl and hand 



DRftH POKER 

1 aS:PRINT§17, "FIVE C ft R DRAW"; iPRINTPiZS, "VOU fl 
m 1¥E CtWUTER mE. GIVEN STAKES OF $1866 EflCK 'iN3U CAN ", :PRINT 
§192, "BET BEFC«E CARDS ARE DRAWN FWD fTTER Cf^S m. mm " 

2 PRINTf256, "Tl€ COMPUTER WILL fWTE $5 FOR EACH OF VOU BEFORE TH 
E WW IS "; :PRINT8328, "DEALT. TtCffflXIMlfl SEl IS $im. ":QOSUB 
6866 : PRINT "PRESS 'P' TO START ";GOSUB 2e«e:CLEft? 788 

3 A2=iee©:BM8M:DIH F*<52);DI$=Cl«t<16e)+CHRf<i24)+CI«$(164)+C 
l«*(26)+STRING$<2, 24>+CH?$<0?>+CHR$(129> ;HE$=€l«l<i68)+CHR$(i:<7 
)+CHR$(i69)+CHR$(26)+STRII«i$<2, 24)+CH?$(07>+CHR$(i29) 

4 A$="SHDC" :Al$="E234K789fK3>" ;A8*="TJQKA" :SP$=CHR$<168)+Cl«$(l 
34)+CHR$<164)+CHR$<26)+STRIM»(124)+CHR$(128>+CHR$(i39)+CHR$(0 
1) :CL*=CHR$<i68)+a«*<i58)+CHR$<l^)+CHR$(26)+STRIN6$(2, 24)+CHR$ 
<128) : CB$=STRIMJf <4, 176) : CC*=a«$(26>+CH?$(24)+Crt?$<24> ; GOSUB 16 

5 K9=5:E=e:U=e:Ul=e:U>0 

6 1=1: FOR F=l TO 4; FOR Fl=i TO 12.F$(I)=l1ID$(Al$,FLi) 

7 F*<I)=LEFT$(F$<I>,l)+MIDf(A$.F,i);I=I+l:NEKT FLF:PRINT"*"i 

9 F=e:FCR F8=l TO 9 STEP 2;G0SUB 543e:H$=LEFT$(H$,F8-l>+Ff(F)+RI 

(M$(H$,1&-<F8+1)):F$(F)=" ".NEXT F8:L=8;G0SLi 5338:0)506 5248 :P 

2$=Hf:P*=ef:K9=5;Pl$=X*:PRINT"*"i 

18 GOSUB 5^;Cl$=X$:C$=Q$:C2t=H$:C9=K9:E=i 

15 CLS : PRINTUie, "FIVE CARD DRAW";; PRINT@i28, CA$, C 
Ali Cflli Cft*i CA$i " "; CA$i CA$, CA$i CA$i CA$, .QOSm 588:GCiT0 28 

16 CC$=CC$+a«$(24>+CHR$<24)+Cl«$<24)+CHR$(24) :CF$=STRING$(5, 27) 
:CZ$=a«$(128)+CHR*(128)+CW»(128)+CM?$(26)+STRING$(S>24)+CHR$(i 
28)+CHR$<128)+CHR$<128) 

17 CD$=STRING$(4, 128) : CE$=STRING*<4, 1'Si) : CA$=CHRt(lb8)+CB*+CHRI< 
144)+CC*+CHR$(17e)+eDf+CHR*(149)+CC$+CHR$<i70)+CD*+CHR$(149)+eC$ 
+CHR*a78)+CD*+CHRt(i49)+CC$+CHRf(178)+CDI+CHR$(149)+CC*+CHR*(13 
8)+CEI+CHR$(129)+CF$ : RETURN 

18- REM 'FIVE CARD DRAW' 
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PROQRfiMMED BY LEE BLLWENTHHL 
AND JiDEL WILLflRD 
4/79 
2ki Hl=0:ftl=6:K=8;Cl=0:fl:<=fli-5:B3=B]:-5.Bl=INT(RtilD(8>*i+i):UN Bl G 
OTO 49, 149, 249 
49 QOSUB 885: GOTO 68 

58 GOSUE: 888: IF Hi=8THEN 658 ELSE IF HlOBl THEN 52 ELSE Fii=fl]:-H 
1 

52 G0SL8 848: GOTO 54 
5i GOSUB ?06:Gi3TO 56 
54 IF fll=0 T(€N 620 

66 IF fiiOe THEN 62 ELSE IF K>e IMi 688 
62 IF D<3 THEN 65 ELSE IF K>1 TI€N 6W ELSE GOTO 78 

65 IF fil>4e THEN 758 USE IF D=i THEN 66 ELSE GOTO 688 

66 IF fti>i5 THEN 756 ELSE GOTO ^18 

76 IF D<4 THEN 118 ELSE Bl=INT<RND(0)*28+28) 

90 GOSUB 350 :PRINTBi:B2=B5-Bl-fll: GOTO 115 

110 GOSUB !550 : Bl=INT<F»(6)*ie+10) : PRINTBl : B3=B3-Bi-ftl : 

115 GOSUB S78:G0T0 58 

149 GOSUB 885: GOTO 168 

158 GOSIB 888:IF Hi=e THEN 650 ELSE IF HiOBl THEN 15i ELSE fii=fi 

2-Hl 

152 QOSUB 840:GOTO 154 

152 eeSUB 700 -GOTO 156 

154 IF R1=0 THEN 628 j 

160 IF H1O0 THEN 188 ELSE IFK>0 THEN 688 ELSE IF D<2 THEN 686 

180 IF K:>1 THEN 688 ELSE IF D<2 THEN 182 ELSE GOTO 185 

182 IF fii;>45 THEN 7561 ELSE IF D=i T^£N ISi ELSE GOTO 688 

183 IF fli>15 THEN 758 ELSE GOTO 6^ 
185 IF C<5 THEN 218 

205 GOSUB 858. PRINT22:Bl=23:B2=B3-Bi-ftl GOTO 215 

210 Bl=INT(RND<8)*26+20) GOSUB 850-PRINTBl:B2=B2-Bi-fli 

215 QOSUB 870: GOTO 150 

249 GOSUB 885: GOTO 255 

258 GOSUB 880. IF Hl=8 THEN 658 ELSE IF HlOBi THEN 253 ELSE flS=ft 

3-Hl 

252 GOSUB 840: IF fll=6 THEN 628 ELSE GOTO 255 

253 GOSUB 700: GOTO 258 

255 IF 0>5 THEN 276 ELSE IF K>2 THEN 608 ELSE IF D>2 THEN 286 EL 
3E IF fll>5 T^£N 756 ELSE IF K>6 THEN 680 ELSE GOTO 288 
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2?8 QIJSL8 856 PRINT36;Bl=36;Bi=B3:-Bl-fti -.GOTO 285 
280 GOSUB 350;Bl=INT(RM>(6)*10+ie)-.PRiKTBl:B3=B3-Bi-fii 
285 GOSli o?0:GOTO Zm 

508 PR1NTC'€.4, "YOUR HW€'";Tf«<]3),- "MlfUTER'S HfM)".. 
52i3 iJi=l:iJl=58?;iJ=l93:Q2$=P$;GC6UB 558: PRINT RETURN 
550 S$=" ":F«< J=i TO 1? STEP 4:S$=MID$(Q2$, J.1);IF S$="T" T 

HEN S*="10"ELSE S$=S$+" " 

552 PRINTS, S$, :PRINT«Ji.S$i :U=U+6:Ui=Ul+6;(£KT J; IF U3;=0 Tl€N U 
=290 aSE iJ=257 

555. FOR J=2 TO 19 STEP 4;S$=HID*<Q2$, J,1>.IF S$="H" THEN S$=HE$ 
ELSE IF SI="C" THEN S$=CL$ ELSE IF S*="S"* THEN SI=SP$ ELSE IF S$ 
="D" T^€N S$=DII- 

560 PRINT§U,C2I, :PR:INT8U,S$i :U'=U+6;NEXT J 11=290 
565 IF U2=0 THEN RETLKN ELS£ TR$="TRS"*CI«$<26>+CHR$(24)+a«$(24 
>+CHRf<24)+" 80'':FOR J=l TO 5:PRINTC<i.TR$, :U=U+6:hEXT J:PRINT(>« 
$(26);CHR$(26). .RETIMI 

570 PRINT(?512. CHRf <20>i :J=2«:NEXT J, GOTO 612 
Sm B3=e3-ftl;Hl=fll*2;Cl=Cl+Hl+fll;F'RINT"C0MPUTER OCCKS. THE POT 
IS$",C1+10 

612 PRINT§5?6, "IWICH CHRDS TO KEEP? m '"' - i=VES 2=N0 
'*'=«SiiN"; :K9=5.H$=P2$ 

613 K9=5;H$=" ".68=1: 1=0; FOR J=i TO 28 STEP 6:PRINT§512' 

614 S4$=IM(EY$:IF S4*="l" 0? S4$="2" Tl€N 615 ELSE IF S4$="*r TH 
EN 578 ELSE 614 

615 IF S4$0"l" THEN 616* ELSE i=I+2:K9=K9-l.H$=LEFT*<H$,I-2>+MID 
$<P2*, B8, 2)+RiaiTl<H*, 19-1 ) 

616 B8=^+2:NEKT J PRINTg5i2, eW?*(30)i :Q$=P$ :P9=K9 

617 IF P9=5 THEN 638 ELSE IF P8=4 Ti€N 648 ELSE GOTO 668 

618 P$=Q$:H$=C2*.K9=P9; GOSUB 5888:00506 5296 : PRINT8512, TflB<33), " 
COHFUTER DRflMS "iC9:iF C9=8 THEN 8^ ELSE C*=Q$:Ci$=X$:K9=5:GOT0 

808 
620 PRINT" OK 'yOJ CHECKED. NCW W^fW VOl* CfRDS".; :Cl=Cl+Hi+ftl:PR 
INT" THE POT IS l",Cl+10:<a3TO 612 

630 PRINT§640,CHR$<31)j "VW mi NOT iXm 5 CflR-DS - DRfW flGftIN"i : 
GOTO 612 
648 IF f'iIDf<P2$,l..l>="E" imi 655 ELSE PRINTg648,CHR*(31).; "VOJ h 

HY smv omi 4 ams if yoj hrve an 'fCE - drw mnwi goto 6i 
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658 PRINT " mi F0LD";B];=Ci+B3+18:IF iW(8)C 2 TtCN 652 ELSE GOT 

1830 

652 IF CK250 Tt€N 1836 ELSE PRINTe644, CJ«$(38)i "*** Vmi fl S-UF 

F ***":QOTO 1830 

655 IF HID$(H$, L DO-'E" IVEH PRINTe640, CHR$(31)i "W. . . NO. , . 'VWJ 

t^ST KEEP 'Km 'WE', "i :K)T0612 

660 GOSiB 500e;L=0;6OSUE; 5330:GOSU8 5340:U3=l;Ul=38?;U=i93;Q2$=Q 

$ ; GOSlffi 550 : Pl$=>^* : (SJTO 618 

?m PRINT(?832,a«$<3i), "VOU HftVE ENTERED M) INCOFRECT BID. VW 

R -SEE- WST = T>£" : PRINT'-COMF'tJIER'S RftlSE. BID flffilN ! " RETURN 

750 Ci=Cl+fil+Hl:PRIHT"THE COtlPUTER FOLDS "> fi3=Ci+H3+16:QuT0 1 

830 

800 IF C904 IVEH 8K ELSE PRINT@5i2. "THE ODHPUTER HflS RN 'flCE" 

805 D=VftL(t1ID$(C;ll. LI) >:F-RINT&5?6, "CONTINUE BETTING - WfiTCH ¥C«J 

R BflNK!":K=0.Hl=0:fil=8:IF &=-! THEN 300 

818 IF D>4 THEN 358 ELSE IF D>2 T«N 325 ELSE IF MIDKCIS, 2.. IX" 

7" THEN 900 ELSE IF P9>4 THEN 822 ELSE K=K+2 

820 IF RND<0><. 15 THEN 325 ELSE K=0 

822 GOSUB 885. GOTO 822 

825 GOSUB 880 IF H1=0 THEN 658 ELSE IF HlOBl THEN 838 ELSE R3=fi 

3-Hi 

828 GOSUB 845: GOTO 832 

820 GOSUB 700: GOTO 825 

831 B1=85:G0T0 836 

832 IF fllOe THEN 824 ELSE IF K<i THEN 834 ELSE GOTO 1818 

823 IF P9<4 THEN 750 ELSE GOTO 1880 

834 IF fll>35 THEN 833 ELSE IF riIDf(C:i$,2,i)>"3" THEN S35 ELSE IF 
Hl':25 THEN 835 ELSE IF K>=0 THEN 1M0 

835 IF D0 THEN 1880 ELSE Bi=22.IF Hl>5 THEN 836 ELSE IF RND(0)< 
, 2 THEN 831 

836 GOSUB 850. PRINTBi.Bi=B3-Bl-fil 
838 GOSLK 870 GOTO 325 

840 PRINTi832..CHR$Gih. .IttfUT "«€) RAISE (CHECK=I8.) $".fli;IF Hl> 

108 OR Ri<0 THEN 848 ELSE H3=fl3-Hl . RETURH 

845 PRINTi832.-CHR$(3i;).. INPUT "RND RftlSE <i::ftLL=*8) f"..Hi. IF fli>l 

08 OR fll<0 THEN 845 ELSE fl3=H3-fll : RETURN 

850 PRINTCi704,CHR'$(3i,'i PR I NT "COtlPUTER WILL SEE VOUR BET RNC- Rfll 

SEr;.RET!^N 

870 Cl=Hl+Bl+Cl+2*Hi ; K=K+i : RETIKN 
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880 PRiNT§?68.CHR$(38). : INPUT "DO VOU 14BNT TO SEE THftT BET (FOLD 

^$6) l%rii:IF Hi>180 OR Hi<8 THEN 386 ELSE RETURN 

885 PRINT%4aCHR$(2i), : INPUT "NHftT IS VOUR BET $^Hi;IF Ri>i00 

OR HK0 THEN 885 ELSE H>ft3-Hi: RETURN 

960 GOSUB 885: IF D=i THEN 903 ELSE IF Ri>19 THEN 758 ELSE GOTO i 

902 IF Hi>8 THEN 750 ELSE 1080 

925 GOSUB 885; GOTO 9i2 

927 GOSUB 880; IF Hl=8 THEN 658 ELSE- IF HlOBi THEN 931 ELSE KM\ 

3-Hi 

929 GOSUB 845; GOTO 932 

931 GOSUB 700; GOTO 927 

932 IF P9=^8 THEN 933 ELSE IF HlOO THEN 934 ELSE IF K<1 THEN 934 
ELSE GOTO 1810 

933 IF HK25 THEN 1808 ELSE GOTO 758 

934 IF fli>45 THEN 1808 ELSE IF K>2 THEN 1888 ELSE ei-INT<RND(8)* 
2e-i-38).IF RND<8><. 19 THEN 936 ELSE GOTO 948 

936 Bl=85 

940 GOSUB 858 ; PRINTBl ; B3^Bi~Bl~Bl 

942 GOSUB 876: GOTO 927 

958 GOSUB 885: GOTO 968 

955 GOSUB 888: IF Hi=8 THEN 658 ELSE IF HlOBl THEN 959 ELSE H>H 

956 GOSUB 845: GOTO 966 

959 GOSUB 708:*GGTO 955 

968 IF filOe THEN 962 ELSE IF K<1 THEN 962 ELSE GOTO 1818 

962 IF K>3 THEN 1088 ELSE Bi=INT(RND(8)^38+18). IF BK28 THEN 963 
ELSE GOTO 964 

963 Bl=85 

964 GOSUB 858: PRINTBl :B3=B3-Bi-Hl 

966 GOSUB 878: GOTO 955 

1886 PR I NT "COMPUTER CfiLLS^* ; B3=B3~Hi: fil=2*Hl : GOTO 18i5 

1818 PRlNT"yOU CHLLED'' 

1015 U3^0 : 01=420 : U=226 , U2f ^Ci: ; GOSUB 558 ; Cl^Cl-^HlrHl 

1828 PRINT§5?6>CHR$(31). "THE POT MRS $".Cln8 

1825 IF Pl$<Ci$ THEN 1827 ELSE PRINTTRB(25)r'V0U ^aN'^H3^-H3+Ci^i 

0;GOTO 1838 

1827 PRINTThB(25). "COHPUTER NIHS'' :B3=B3-^C1H8 

1838 PRINT"V0U HhVE I".h3. ' COMPUTER HRS l".B3 



60 



1840 IF BK 1 THEN 1878 ELSE IF FlS<. i THEN 1860 ELSE GOTO 5 

1860 PRINT Tf«(20)i" $$t$$$ COMPUTER HINS $$$$$$ "iMO 1080 

1070 PRINTTfli (20), " }SSSC'72y.K Vai WIN ;Si?5ffi;»S" 

1080 INPUT "DO VOU «flNT TO PLflV FlGflIN^fli$:IF LEFTI(fii$, i:)="Y" T 

HEN 1 ELSE PRINT "SO LONG!!" ;STOP 

S^e V$=It*lV$; IF V$=T" THEN 3050 

3010 J=RND<0): GOTO 3^0 

3050 PRINT'THE COfRITER IS SJWFFLING & C€ftLIN6 THE CfiRCS"; RETURN 

5000 IF t(9O0 THEN 5018 ELSE G0T5 ^0 

^10 Ft» J=9 TO ii-2*K9 STEP -2:Q0SL« 5430;Mi=LEFT$<H$, J-D+FKF 

)+RiaiT$<H*,10-<J+l»:F$(F)=" "JCXT J 

5020 L=1;Q=1:T=1:H=0:GOSUB 5390;FOR J=2 TO 18 STEP 2 

5030 IF HIDI<H$,Xl)<^ID$<H*,6,i) THEN 5040 ELSE H=H+1 

5040 rCXT J;L=0:QOSUB 5390 , 

5050 FO? J=l TO 7 STEP 2;IF mD$CH*,Xl)OMID$(Ht. J+2,1) THEN 5« 

60 ELSE Q=Q+l;V=J;a3T0 5870 

5068 IF 0=1 THEN ^78 ELa J=9 

5870 NEXT J:D=8:IF 0=1 THEN 5118 ELSE FOR J=V+2 TO 7 STEP 2 

50^ IF HID$<H*,J,i)<>HID$(HI,J+2,i) T«N 5898 ELSE T=T+1 

5098 NEKT J 

51^ m (0-1) GOTO 5148,5158,5160 

5110 6$=H*.F=8:F0R J=l TO 9 STEP 2: IF t1ID$(G$, J, l)<"fl" THEN 5115 

ELSE (S=flSC(PIID*(G*, J, D) :G5=G5-7;G*=LEFT$(Q$, J-l)+CHRf (G5)+RIGH 

T$(G$,i8-(J)) 

5115 NEXT J:Gil=6$:F0R J=l TO 7 STEP 2:G5=fiSC(MID$(G$, J,1));G5=G 

5-1 ; G«=LEFT$(G$, J-l)+CHRf (G5)+RIGHT$(G$, 18-( J» i'lF I1ID$(G*, J, IX 

>WDJ(G1$,J+2,1) THEN 5138 ELSE F=F+J 

5120 ^EXT J:D=5:IF H<5 THEN 5168 ELSE D=9:G0T0 5168 

5130 J=7:rCXT J;D=1:IF H<5 TfCN 5168 ELSE D=6;G0T0 5168 

5148 D=2.IF T=l THEN 5168 ELSE D=3:IF T=2 THEN 5168 ELSE D=7:Q0T 

5168 

5158 D=4-IF T=l TVEH 5168 WlSE 0=7 

5168 K9=0:Q$=H$:X*=STR*(D);X*=Ria<T$(X$,l);ON D GOTO 5170,5238,5 

250, 5^8, 5330, 5338, 5318, 5328, 5338 

5178 IF E=i THEN 5338 ELSE J=e:K=8.K9=l:G$=H$:IF H<4 THEN 5218 

51£e L=1:G0SI« 53M:IF MID*(H$, 2, 1)=MID$(H$, 6, 1) T^£N 5338 

5198 Q$=«ID$<H$, 3, 8) ;H$=RIGHT*(H*, 8)+LEFT$<H*, 2) ;QOTO 5338 

5218 IF F=9 1\€H 5338 ELSE IF F=15 THEN 5196 

5228 K9=4:IF HID$(H$, 1, 1)>"0" THEN 5338 ELSE K9=3;Q0T0 5338 
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5230 I=5:IO=3:F0R J=l TO 9 STEP 2:IF J=V THEN 5246 ELSE Hf=lEFT* 

<H$,I-i>+«ID*<G$>J,2)+RIGHTI(H$,18-<I+i)):I=I+2:NEXT J:IF RND(0) 

Ci5 THEN 5225 ELSE GOTO 5330 

5235 K9=2:G0Ta 5330 

5240 H*=«ID$(G$,J,4>+RIGHT$(H$,6>:J=J+2:NEXT J: GOTO 5338 

5250 K9=1:IF«ID*<H*,9,1>0«II»<H$,7,1) TUN 5330 ELSE IF MID$<H 

$,1,1)0«I[)$<H$, 3,1) THEN 5270 

5260 HI=LEFT*<H$, 4)+NID$(G$, 7, 4)+HID$<G$. 5, 2) iGOTO 5330 

5270 H*=HID*<G*,3/8)+HID*(6f,l,2>:IF RND<6)<.7 IVBi 5275 ELSE GO 

TO 5330 

5275 K9=0:GOTO 5330 

5280 K9=2:IF HIDI<H$, L 1)=MID*(H*> 3, i) THEN 5330 ELSE IF «ID$<H$ 

, 7, 1)=«ID$<H$, 9, 1) THEN 5300 

5290 H$=«ID$<G»,3,6)+HID*<G$,L2)+RIGHT$<H$,2>:G0T0 5238 
5300 H$=HID$<G$i 5, 6)+«ID$<G$, L 4) ; GOTO 5330 
5310 IF MID$(H$,3,l)=MID$<H$,5,i> TtCN 5338 aSE 53W 
5312 K9=i:IF HID*<HI,1,1>=I1IDI(H$, 3,1) THEN 5320 ELSE H$=MID$(GI 
,2,8)+MID$(Q$,l,2) 

5320 K9=i:IF HID$(H$,Ll)=MID*(H$,2,i) THEN 5228 ELSE H«=«IDf<6$ 
,2,8)+ftID$<G$,L2) 

5230 Fffl? J=l TO 9 STEP 2:H$=LEFT$(X$,<J+l)/'2)+WID$(Hf, J.1);NEXT 
J 

5340 FOR J=l TO 17 STEP 4:Q$=LEFT$(Q$, J-1)+MID$<H$, (J+l)/■2,i)+"- 
"^ID$<H$, <J+2)72, 1)+" " . 

53^ IF HID$(Qf,J,l)<"fi" THEN 5288 ELSE SIp=«ID$<8$, X i) 
5260 IF S$="fi" TJ€K K=l ELSE IF Sf="B'' IVEH K=2 ELSE IF S$=»C" T 
HEN K=2 ELSE If S$="D" THEN K=4 ELSE IF S$="E" THEN K=5 
5270 Q$=LEFTI<Q$, J-l)+MID$<fi8$, K, l)+RIGHTf (Q$, 2) 
5280 NEXT J: RETURN 

52% FCR I=i TO 7 STEP 2: FOR J=I+2 TO 9 STEP 2 
5400 IF mD*<H$,I+L,l)>=MID$(H*,J+Li) TffiN 5428 ELSE G$=!1ID*(H$ 
,L2) 

5410 H$=LEFT$(HI, I-1)+«ID$(H$, i, 2)+RimT$(H$, 10-(I+i)> :H*=LEFT$< 
H$, J-1)+Gf+RIGHT*(H$, 10-< J+D) 
5420 NEXT J: NEXT I: RETURN 

5430 F=INT<RND(0)*52+1):IF F$<F)=" " THEN 5438 ELSE RETURN 
6000 PRINT-VOU HftV DRfW NO l«a?E THEN 3 £m>S UM.ESS VOU tfflVE ft 
N 'fCE^ ^PRINT'•THEN VbU mV DRflW 4 CftRDS. ": RETURN 
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A powerful monitor for the TRS-80 with speciai abiiity in Tracing and 
Debugging. Single Step through machine language p rogram s or set up t o 
three breakpoints, and loolc at this dispVay^format! 





flF BC DE ML IX IV flF' BC DE" HL" SP PC 

9844 eeee csee bttc 6433 ffff 0102 0000 4000 sfc© 4iFC 4400 

LD fl,93 

as well. Look at these commands: 

ASCII dump 

formatted ASCII dump 

start of branch table 

display In decimal 

hex arithmetic "^^ ^ 

check system tape 

dump hex 

edit memory 

find byte 

set breakpoints, continue 

find word 

read port 

keyboard echo 

K load system tape 

^ load from disk 
move memory 
display symbol table 
symbol table to tape 
define value for symbol table 
define start symbol table 
write to port 
initialize memory blocks 
write memory blocks and start 
define a memory block 
calculate checksum 
display / modify registers 
disassembler 
trace instructions 
unformatted tape I/O 
verify memory 
write to disk 
exchange memory 
zero memory 



All the power of regular monitors 

A FIRST(0) LAST(FFFF) 

A FIRST 

B 

BVALA 

BVALAVALB(0) 

C 

D FIRST(0) LAST(FFFF) 

E FIRST(0) 

F FIRST LAST VALUE 

G B8KPTS (3 max.) 

H FIRST LAST VALUE 

I PORT 

K 

L 

L SECTOR MEMORY COUNT(1) 

M FIRST LAST BLOCK 

N 

NO 

N VALUE 

N FIRST 

O PORT VALUE 

P 

P ENTRY 

P FIRST LAST 

Q FIRST LAST 

R 

S FIRST LAST OPTION(0) 

T COUNT 0PTI0N(6) 

U FIRST COUNT OPTION(0) 

V FIRST LAST BLOCK 

W SECTOR MEMORY C0UNT(1) 

X FIRST LAST BLOCK 

Z FIRST LAST VALUE(0) 



16K, 32K, and 48K versions on one cassette for $24.95 
(Use from tape In Level II or as a command file from Disk) 

theSafh^at^ EMchange 

6 SouthStreet, Box 68,Milford,NH 03055 603-673-5144 
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ADVENTURE 



Get the granddaddy of the Adventure Games! 

From Microsoft, the people who wrote 
BASIC for all the personal computers, comes a 
version of the original Adventure. NOW, you 
no longer need a PDP- 10 for all the power of the 
original game! 

This game fills an entire diskette. Endless 
variety and challenge as you seek to rise to the 
level of Grand Master (until you gain skill, there 
are whole areas of the cave that you cannot 
enter.) 

Requires 32K One Disk ONLY $29.95! 
ThaSoih^^re Exchange 

6 SouthStn\^t, Box 68, Milford, NH 0:K)55 (iO.H-,7.i-5144 



ADVENTURES 

by Scott Adams 

Adventures on Tape: Level u/uk 

Adventure Sampler 

Short version of Adventureland, a great way to try out adventuring 
(but you'll get addicted!) $5.95 

Adventureland 

An enchanted world with 13 lost treasures guarded by magical 
beings • $14.95 

Pirate's Cove 

Clues in blood-soaked books>,a ptra[te and his parrot, alligators, 

treasure, «.,,.*****.«.., w*;/* *».*.*»., ...•; ,*..,. $14.95 

Mission impbs$lbte 

A chance to pr^venl.the nuclear factor from being tJestroyed by a 
saboteur's time bomb **..,;/*♦*. * * , * .... . : . . . . , ;, ..*,...** $14.95 

The Count. \ ^-^ • \v>->. 

Watch out! j^ou're in Dra€uta^si:a$tJeandyoM»yst deitray him before 
he bites yoill* . . ;..*/.../;;.., .\ , , , . . . . i ... *..*;..... $14.95 

Voodoo C^te 

Remove a cui^e from Count Christo ..... ....... ..... , .r*» . $14.95 

Strang^B Odyssey 

Adv.emure |h outer space In the ruiits (>f{-zn ancient alien 
civilization 1 * . *.....;. *..*.,,.. ;^.<;,: . . . . , $14.95 

Mystery Fun House 

It will take all your ingenuity just to get past the ticket counter, and 
that's only the beginning! $14.95 

Pyramid of Doom 

In the shifting sands of the Sahara lies an ancient Pyramid, filled with 
Egyptian treaasures $14.95 

Adventures on Disk^ in Sets: 

Set 1: Mission Impossible, Pirate's Cove, Adventureland $39.95 

Set 2: Voo doo Castle, The Count, Strange Odyssey $39.95 

Jhe Software Exchange 

6SouthStreet,Box68,Milfoid,NH03055 603-673-5144 
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THE BASIC HAN DBOOK 

Dr. David A. Lieri 

A definitive reference/idea book. Explains over 50 
favorite versions of the BASIC language in detail 
as used in micros, minis and mainframes. 
Everything you need to know about the most im- 
portant statements, functions, operators and 
commands. From the same author as the TRS-80 
Users/Learners Manual. 
360 pages $14.95 plus $1.00 shipping and handling 




LITTLE BOOK 
OF BASIC 
STYLE 

John M. Nevison 

Ideal reference for BASIC 
programmer, junior high 
to research scientist. 
Indexed, illustrated, 
151 pages. 

$5.95 

plus $1.00 shipping 
and handling 



TO ORDER: 
CALL TOLL-FREE 
1-800-258-1790 

9AM - 9PM, EST 



TheSaHware Exchange 

6 SouthStmet, Box 68, Milford, NH Q3Q55 €03-673-5144 



THE HOTTEST NEW GAMES 
OF THE EIGHTIES! 

Two masterful strategy games 

by Douglas Carlston . . 

Level II, 16K cassette $14.95 each 

SPECIAL! Both 
GALACTIC EMPIRE 
and GALACTIC TRADER 
on disk for only $29.95!!! 




The 
SaHware 
Exchange 

TO ORDER: 

Call Toll-Free 
1-800-258 



GALACTIC 
EMPIRE 



Build an empire tliat spans 
the Universe! Deploy mighty 
armies, conscript soldiers on 
strange planets, send forth 
starfleets of warships and 
transports, set tax levels, 
plan the use of resources, 
dispatch intelligence mis- 
sions . . . Conquest of all the 
known inhabited worlds is 
your goal! 



If you're already a GALACTIC EMPIRE 
fan, you absolutely MUST have 

ALACTIC 
TRADER 

Peace has finally come to the 
Galactic system, united Into a 
single fedaration. Though you no 
longer command Galactica's im- 
perial forces, you still have the vi- 
sion and ambition to exploit new op- 
portunities in trade. With two loyal 
comrades (Kirman and Computer 
Central) you set out to make a for- 
tune. You must outwit the clever 
locals at the ancient game of barter, 
contend with the fuel cartel, watch 
out for spies from the large trading 
firms, and call upon all your ex- 
perience In traversing space. In- 
cluding the use of suspended 
animation. 
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TIRED OF DISK ERRORS? 

STOP BLAMING YOUR DRIVES - 
FIX YOUR DOS! 

NEWDOS, by Apparat, is the third generation disk operating 
system for your TRS-80. NEWDOS corrects over 70 errors and 
omissions in TRSDOS 2.1 and disk BASfG, yet the two are 
completely compatible! Programs and files saved under one can 
be used with the other interchangeably. Going from TRSDOS 
to NEWDOS is like going f r-om Level I to Level 1 1 : more 
power, more convenience, greater speed. 



NEWDOS NEWDOS+ 



• Use all DOS commands 
(incl. directory) In BASIC 
Automatically load and run 
a BASIC program 

on power- up 

• Produce variable cross- 
reference tables 

• Open 'E' to add to 
sequential files 

• Append files 

• Use your line printer as 
a screen printer 

• Renumber BASIC programs 

• End keyboard bounce 



Editor/Assembler for disk • 
Disassembler • 
(Z80 machine code) 
LM Offset-allows transfer of any • 
system tape to a disk file 
(automatically relocated) 
BASIC1-Level one BASIC • 
saved on disk 
LV1DSKSL - not a typo, this • 
saves and loads BASIC1 
programs to disk 

Dl RCHECK-tests and lists • 
disk directory 
SUPERZAP-display/print/modify • 
any location in memory or on disk 



And, best of all, say goodbye to system crashes, lost data and 
wasted time caused by your old, bug-ridden system software. 
Apparatus NEWDOS is fully documented and available for 
only $49.95. NEWDOS -h , Just $99.95 

Useof this software may require documentation 
available only with the purchase of Radio Shack TRSDOS 
and/or the Radio Shack Editor/Assembler. 



TheSaHHiore Exchange 

6 SouthStreet, Box 68, Milfprd,NH 03055 603-673-5144 
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PERIODICAL 

CROSS 

REFERENC 

by Dave Stambaugh 

YOU DON'T HAVE TO BE A LIBRARIAN 

Every professional or serious hobbyist who 
relies on current literature to update his/ 
her knowledge can benefit from this pro- ; 
gram. Build a file using any subjects or 
publications you like (18 per file). Allows 
you to add, delete, edit; search by sub- 
ject or publication; list on CRT or line 
printer all or selected entries. SAVE, LOAD with 
both tape and disk versions. 




^Catalog and classify your 
library of computer (or otiier) 
magazines by individual ar- 
ticles under subject, publica- 
tion, date, page, and title 

^ist entries by subject or 
publication to CRT or printer 



^IMaintain data files 
on cassette or disic (2 
versions available) 

:)fEdit, delete, add entries 
at anytime 

-)flncludes complete 
instructions 



Cassette version: Level II, 16K 14.95 
DisIc Version: Single disic, 32K 19.95 
(Minimum configurations) 




6Sou1hStr^t,Box68Mlfotd,f^H03055 603'673'Sm 
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PROGRAMMING HINTS 



To perform a "cold start" of the TRS-80, it is not necessary to switch off 
and then on again. It can be performed with a SYSTEM command, 
followed by /O to enter at address 0. 

If you don't have an assembler, you may have to resort to the POKE 
statement in BASIC to enter short routines in machine language. The 
procedure can be tedious since POKE requires the operands in decimal 
while machine code is usually written in hexadecimal. The conversion is, 
however, very easy to perform in BASIC, allowing easy entry of machine 
code. The following lines can be used: 

10 CLEfiR 100:DEFINT D. LV:DEFSTR fl>H 
20 RERD ft: IF fl="£ND" THEN END ELSE P=0 
20 FOR 1=1 TO 4:Q0SUB 100:P=pH:i6+D:r€XT 
40 I=l:REfiD ft 
50 GOSUB 100: IF H O" " THEN V=D*16: 1=1+1: 

GOSUB 100 : V=V+D : POKE P.. V : P=P+1 
60 1=1+1: IF 1 < LEN<fl> THEN 50 ELSE 20 
100 H=MID$<fl. LI): D=flSC<H)-48+7*<H>"9" ) 
110 RETURN 

The machine code is then entered as a series of DATA statements, with 

the address followed by the instructions — with spaces allowed to 

separate the bytes. For example: 

200 DATA 408E,007F 

210 DATA 7F00,2A2040,DA9AD4 DD7E05 B7 2801 77 79 FE20 DA0605 

C37D04 

220 DATA END 

This is much easier to enter and to read than the corresponding decimal 

values. 

As can be seen from the above (Line 100), conditional expressions can 
be used in calculations. If True, the value -1 will be returned, else 0. This 
can also be used, for example, to convert values between and 15 to 
hexadecimal. The expression will perform 

the conversion on the decimal value D. Locations in memory can thus 
easily be displayed in hexadecimal form. 

For short, one-time assembler language routines, the end of the I/O 
area (16870 to 17126) can be used. This area is used for LIST, EDIT, 
keyboard entry and cassette I/O, so be careful with this if any of these are 
used. I have found it useful for one-time routines such as initialization of 
addresses etc, especially if you tend to forget to answer the MEMORY 
SIZE question on power up. 

Arne Rohde 
Denmark 
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ON ERROR GOTO 

When you have an error trapp- 
ing routine for a particular sec- 
tion of the program, and you 
don't want an error in the rest of 
the program to send you to that 
location, you can turn off the ON 



ERROR GOTO function with ON 
ERROR GOTO 0. Assuming that 
you do not have a line zero, this 
will return you to normal error 
messages with a stop in the ex- 
ecution of the program. See sec- 
tion 4/11 of your Level II User's 
Manual. 



LINE PRINTER test funtlon 

The status of the line printer is 
indicated by location 14312 
(decimal) In memory. If that loca- 



tion contains 255, the printer is 
turned off. If it contains a dif- 
ferent number, the printer is on. 



18 REH * PRINTER TEST ROUTINE * 

20 IF PEEK<14312)=255 THEN PRINT-PRINTER IS OFF" ELSE PRINT "PRI 

HTER IS TURNED ON" 



LINE PRINTER OUTPUT 

SUBROUTINES 

Here are three ways to add class to 
your programming when you are 
using output to a line printer. 
Example 1 allows you to skip 
several lines smoothly. Example 2 
tells you how to use the top of form 
command. Example 3 gives a 
status check to see if the line 



printer is turned on and ready to 
print. Using it, you avoid a lockup 
in a system that is not connected 
to a printer. One final hint; connect 
a space to the end of a printed 
string variable, as inLPRINT A$;" " 
so that your printerdoes a linefeed 
even with a null string. The 
Centronics printers ignore null 
strings completely. 



5 REH ♦ SKIP LINES IN PRINTER OUTPUT * 

10 Itf>UT"HOH HflNV LINES DO VOU HISH TO SKIP«;R 

281PRINT STRIN(»(fl.l38) 

5 REH * TOP OF FORH (NEH PfiGE) ON PRINTER * 
10 INPUT"PRESS ENTER FOR NEXT PfiGE"; ft$ 
28LPRINT CHR$<11) 

5 REH * DETERHINE PRINTER STATUS * 

10 CLS:PRINT"PRINTER STfiTUS CHECK" 

20 PRINT:PRIHT"TURN PRINTER ON AND OFF TO DEHONSTRflTE PROORftM" 

20 IF PEEK<14312)=255 THEN PRINT8 440i "« PRINTER IS TURNED OFF 

»".GOTO30 

40 IF PEEK(14212>=63 THEN PRINT§440."« PRINTER IS REflDV TO PRIN 

T»":GOTO30 

50 PRINtM40.-« PRINTER ON BUT NOT REflDV »":GOTO30 
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Lifeboat Associates, speciaiists in microcomputer clisi< software, is proud 
to offer the first professional dislc-based language and utility pacicage for 
the Radio Shacl< TRS-80 computer. Written by Microsoft, creators of Level 
II BASIC, the package runs on a TRS-80 system with 32K RAM, one or more 
drives and TRSDOS. The software is supplied on diskettes and consists of: 

FORTRAN a true retocatable machine code compiler for 
ANSI FORTRAN X3.9 (except COMPLEX variables). 
MACRO ASSEMBLER a disk-based macro assembler 
utilizing ZIlog mnemonics and prodiicing relocatable 
code. 

LINKING LOADER a link-edit and load FORTRAN and 
assembler modules for execution. 
SUBROUTINE LIBRARY a complete library of 
subroutines existing as relocatable linkable modules for 
FORTRAN or assembler programs - e.g., double preci- 
sion, square root, natural log, transcendentals, etc. 
DISK TEXT EDITOR to create and modify FORTRAN and 
assembler programs as disk files: also can be used as a 
general purpose text editor for correspondence and 
other documents. 

TRI-BO' FORTMfl 

This high-powered 

professional software 

package with full 

documentation 

is available at the 

DISCOUNT PRICE OF $1 50. 
^ PER COMPUTER SYSTEM 




PKKMCS 



The Macro Assembler, Loader, Editor, and Cross 
Reference Utilities alone $80. 

The Fortran Compiler, Loader, Editor, and extensive 
library of scientific functions alone $gO. 
^<gsN ■ Plus $5.00 Shipping 

>jSg^|K£^^ (separately $2.50 each) 



6SouthStFeet,Box68,Milford/NH03055 603-673-5144 
* TRS-80 is a registered trademark of Radio Shack and Tandy Corporation. 
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YOUR 
TRS-80* 
MICRO- 
COMPUTER! 

Why chug along on an electric 

abacus when you can have the 

power of a berserk Ayatollah! 

These products double the 

horsepower of your computer! 




\ IJ}I/B\^ 



NewDOS+,with Dir Check, 
Super Zap, Disk Editor As- 
sembler and A DOS tliat 
really works! $99.95 

Electric Pencil, it starts as 

the best text editor for your 

TRS-80*, but that is only 

the beginning! $150.00 

TRS-80 Disk and Other 

Mysteries by Harvard 

Pennington. All you need to 

know to unleash the power 

of Super Zap and Electric 

Pencil. $19.95 

ONLY $269 

FOR ALL 

THREE 




JheSaitw¥are Exchange 

6 SouthStreet, Box 68Mlford,NH 03055 603-673-5144 



73 




TOLL FREE 
1-800-258-1790 

IN NH CALL (603) 673-5144 



GAMES 

TRS-80 Opera Theatre 

Magnificent sound! 
by Richard Taylor. 

Level II, 16K $9.95 

Challenge 

Word game with sound 

by Richard Taylor 

Level M, 16K ................... . . .$9.95 

Opera Theatre Plus Challenge 
on disk 

32K $19.95 

Bridge Challenger by Personal Software. 

Level II, 16K $t4.95 

Casino Anthology: 

Slot Machine, Stud and Draw Poker. 

Level II, 16K .$7.95 

Allen Invasion by Roy Niederhoffer. 

Level II, 16K $9.95 

Disk $14.95 

X-Wing Fighter by Chris Freund. 

Level II, 16K .$9.95 

Taipan by Art Canfii. 

Level II, 16K $9.95 

Sargon Chess 

by Dan and Kathe Spracklen. 

Level II, 16K $19.95 

Sargon II 

by Dan and Kathe Spracklen. 

Level II, 16K $29.95 

Amazin' Mazes by Robert Wallace. 

Level II, 16K ....$7.95 

\ Snake Eggs by Leo Christopherson. 
With sound \ 

Level II. 16K ... $14.95 
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Life Two by Leo Christopherson. 
With sound. 

Level II, 16K $14.95 

Android Nim by Leo Christopherson 
With sound. 

Level II, 16K $14.95 

Bee Wary by Leo Christopherson 
With sound 

Level II, 16K $14.95 

Mastermind II by Lance Micklus 

Level II, 16K $7.95 

Tycoon by David Bohlke. 

Level II, 16K $7.95 

9 Games for Preschool Children 
by George Blank. 

Level II, 16K ........ ...$9.95 

End Zone tl by Roger W. Robitallle 

Level II, 16K $9.95 

Space Battles by Level IV 

Level II, 16K tape $14.95 

32Kdisk.. $19.95 

Star Trek 111.4 by Lance MIcklus 

Level II, 16K $14.95 

Adventures on Tape by Scott Adams 

Level H,16K $14.95 

Choose one: 
Adventureland: Magical 

beings, perils and puzzles! 
Pirate's Cove: Clue in a bloodsoaked 

book. 
Mission Impossible: Foil the sabo- 
teur,^ save the reactor! 
The Count: Protect your neck! Who 

do you think lives here? 
Voodoo Castle: Remove the curse 

from Count Christo. 
Strange Odyssey: The rums of an 



ancient alien culture? 
Fun House: Takes all your brains 

to get past the gate! 
Pyramid of Doom: Watch out for 
the Nomad! 
Adventures on Disk by Scott Adams. 
$39.95 for three-game combinations: 

1) Mission Impossible, Pirate's Cove, 
Adventureland 

2) Voodoo Castle, The Count, Strange 
Odyssey 

$24.95 for two-game combinations: 

3) Fun House, Pyramid of Doom 
Adventure Sampler by Scott Adams. 
Mini-version of Adventureland, serves as 
introduction. 

Level II, 16K $5.95 

Pork Barrel by George Blank 

Level II, 16K $9.95 

Barricade by Small Systems Software. 

Machine Language $9.95 

Pentomlnoes by James Garon 

Level II, 16K $7.95 

Mean Checkers Machine 
by Lance Micklus 

Level II, 16K tape $19.95 

Disk $24.95 

Kriegsplel by Ron Potkin 

Level II, 16K .$7.95 

Time Trek by Joshua Lavinsky 

Level II. 16K $14.95 

Kamikaze by Russell Starkey 

Level II, 16K $7.95 

Wordo from Microfantastic Programming. 

Level II, 16K $14.95 

Micro Chess 1.5 

Level I or II, 4K $19.95 

Fastgammon from Quality Software 

Level II, 16K . . . . . $19.95 

Cribbage by Roger W. Robitaille Sr. 

Level II, 16K .$7.95 

Galactic Empire by Doug Carlston 

Level II, 16K $14.95 

Galactic Trader (a sequel) 
by Doug Carlston 

Level II, 16K $14.95 

Galactic Traider and Empire 

on disk 32K $29.95 

Air Raid by Small Systems Software 

Level I or II, 4K $9.95 

Lost Dutchman's Gold by Teri Li 

Level II, 16K $9.95 

Original Adventure 

by Microsoft as played on PDP-10 

32K disk $29.95 

Pigskin (Football) by Acorn Software 

Level II, 16K $9.95 

PR Dogfight by David Boh Ike 

Level II, 16K $7.95 



Ting Tong from Acorn Software 
Machine Language, with sound 

Level II, 16K $9.95 

Journey to the Center of the Earth 
by Greg Hassett 

Level II, 16K $7.95 

See SoftSlde on cassettes for addi- 
tional games 

BUSINESS 

Inventory System 11.3 by M. Kelleher. 

Improved version $79.95 

Inventory 'S' by Roger W. Robitaille. Sr. 

Level II, 16K tape $24.95 

32K disk/ 

without Invoicing $39.95 

with invoicing $59.95 

Payroll by Stephen Hebbler. 
For disk systems 

32K . . . ,....: $39.95 

Appointment Log by Michael Kelleher 

Level II, 16K .$9.95 

Mail List 11, by SBSG 

32K disk system $99.95 

Small Business Bookkeeping 
byR.W. Robitaille, Sr. 
Level II, 16K with journal 

disk $36.95 

tape $31.95 

without journal 

disk $29.95 

tape.... $24.95 

On Line Invoicing by Stephen Hebbler 
1 disk, manual; 32K, 1 drive, line 

printer ..... . $39.95 

Accounts Receivable (with invoicing) 

by Stephen Hebbler 

3 disks, 2 manuals; 32K, 2 drives, 

line printer $69.95 

CCA Data Management System 

from Personal Software 

Tape, ready for transfer to disk, with 

manual $79.95 plus $2shipping and 

handling. 

SPECIAL PURPOSE 

HIstograph/Scattergram 

by Gary Breschini 

Level II, 16K .$9.95 

Simple Simon by George Blank 

Level II, 

written in BASIC ............... ..$4.95 

Tiny Comp by Dave Bohike 
A BASIC Compiler in BASIC 

Tape ... — $19 95 

Disk $24.95 

R PN Calculator by R ussell Starkey 
Level II, 16K .$9.95 

75 



Ham Radio by Michael Kelleher 

Level II. 16K . . . , . ...... . ........ . .$9.95 

Ham Radio advanced verson for 

32K disk $24.95 

Electronic Assistant by John Adamson 

Level II, 16K ..$9.95 

Basic Statistics by Steve Reisser 

Level II, 16K $9.95 

IMagic Paper Calculator 
by Russell Starkey 

Level II, 16K $14.95 

Keyboard 80 (Improved) 
by John Adamson 

Level II, 16K $9.95 

Text-80 by Frank B. Rowlette, Jr. 

32K disk systems $59.95 

Electric Pencil by Michael Shrayer 
Powerful machine language word 
processing system 
Level II 16K 

tape $100.00 

disk version — . . $150.00 

Pencil Pal by Microcomputer Specialists. 

Requires 32K 1 disk system. Electric 

Pencil, 

and lower ease modification kit 

, $35.00 

Micro Tax from Aardvark Software. 

MT-1 $25.00 

MT-II $35.00 

MT-III $50.00 

MT-IV $100.00 

MT-V $150.00 

(Add $2 shipping and handling.) 
Dynamic Data Base by Ken Knecht. 
Manual and 3 programs on disk for32K 
or larger systems* with one or more drives 

...V!. $39.95 

PERSONAL 

Typing Tutor by 80 US 

Level II, 16K $19.95 

Secrets of tiie Tarot by John T. Phillipp 

Level II, 16K .....$9.95 

I Ching by John T. Phillipp 

Level II, 16K ....$7.95 

Numerology by John T. Phillipp 

32K disk $14.95 

Blorhythms by Frank B. Rowlette, Jr. 

level II. 4K ......$4.95 

Personal Finance by Lance Micklus 

Level 11, 16K .: ...$9.95 

Advanced Personal Finance 
by Lance Micklus 

32K disk systems $24.95 

Home Financial Management 

by Michael Kellerher 

Level II, 16K ............ . ... .$9.95 

76 



Periodical Cross Reference 

by Dave Stambaugh 

Level II, 16K $14.95 

32K disk $19.95 

Roots by Bill Sholar 

32Kdisk $19.95 

UTILITIES 

T-Siiort by Web Associates 

Level II, 16K .................... . .$9.95 

APL 80 by Phelps Gates 

Deluxe version — 32K disk, instructional 

material, book; 

$49.95 plus $3 handling. 

Level II, 16K tape — reduced features, no 

course or book; $14.95 

Book (separately) $15.50 plus $3 handling 

File Manager 80 by Nepenthe 

32K disk $49.95 

Automatic Disic Directory 
by George Blank 

32Kdisk............ $14.95 

Requires NEWDOS 

STAD Trace and Debug Monitor for tape 

and disk systems 

16, 32, and48K 

on one tape $24.95 

NEWDOS by Apparat 

$49.95 

NEWDOS+ by Apparat 

$99.95 

RSM2 by Small Systems Software 

Level II, 16K $26.95 

RSM2D by Small Systems Software 
Disk for 16 through 48K (all in one) 

$29.95 

KVP by Lance Micklus 

Tape $24.95 

Disk . . . ............ $29.95 

KVP 232 by Lance Micklus. 
KVP adapted for the TRS-232 

Tape $29.95 

ST80 Smart Terminal 
by Lance Micklus 

Level II, 16K $49.95 

ST80D Smarter Terminal 
by Lance Micklus 

For disk systems $79.95 

ST80-UC by Lance Micklus. 
Dedicated to THE SOURCE. 

Level II, 16K $24.95 

ST80 ill by Lance Micklus $150.00 

Micro Text Editor by Don Coons. 

Level 11, 4K or 16K $9.95 

Level III BASIC by Microsoft. .. . . $49.95 

Level I in Level II by Apparat 

Level II, 16K . ................... $15.00 



FORTRAN by Microsoft 

32K, 2 disks $80.00 

plus $2.50 handling 
Assembler by Microsoft 
32K $80.00 

plus $2.50 handling 
FORTRAN plus Assembler, new low 
price 
$150.00 

plus $5.00 handling 
Spool will print an ASCII file to a parallel 
line printer at the same time you are using 
your computer for another program. For 
32K disk systems only. Will NOT work with 
NEWDOS i2.3 or VTOS 3.0 OK). 

On disk... $24.95 

Cross Reference Utilities 
by Lance Micklus 
Level II cassette versions: 
XREF $19 95 

RENUMX (XREF with RENUMBER and 
rescue after reset) ............. $24.95 

RENUMBER separately $7.95 

RX— Cross Reference for Disk 
by Lance Micklus 

32K, 1 disk $24.95 

RENUMBER by Lance Micklus. 

The full-featured RENUMBER program. 

One version now works in 

16K. 32K or 48K $7.95 

System Copy by Kalman Bergen 

Level II, 16K .$9.95 

Floppy Disic Diagnostic 

by Dave Stambaugh 

Disk with manual $24.95 

BOOKS 

Sargon Handbook 

by Dan and Kathe Spracklen 

$15.95 plus $1 handling 

The BASIC Handbook 
by Dr. David A. Lien 

$14.95 plus $1 handling 

Z80 Instruction Handbook 
by Sceibi Publications 

$4.95 plus $1 handling 

The Little Book of Basic Style 
by John Nevison 

$5.95 plus $1 handling 

TRS-80 Assembly Language 

Programming 

by William Barden, Jr. 

. ..... . . ... . — . $3.95 plus $1 handling 

APL — An Interactive Approach 
by Oilman and Rose 

............ — $15.50 plus $3 handling 



Introduction To TRS-80 Graphics 

by Don In man 

$7.95 plus $1 handling 

Learning Level II by David A. Lien 

$15.95 plus $1 handling 

Z-80 Software Gourmet Guide and 

Cookbook 

from Sceibi 

$14.95 plus $1 handling 

TRS-80 Disk and Other Mysteries 
by Harvard Pennington 

$22.95 plus $1 handling 

TRS-80 Interfacing by Jonathan Titus 

$8.95 plus $1 handling 

SUPPLIES 

Cassettes: Boxes of 10 each 

C-10 .......$6.50 

plus $1 shipping 
C-20 $7.50 

plus $1 shipping 
Diskettes: 

Dysan (premium Quality) 
Box of 5 ... ! $29.95 

plus$1 shipping 
BASF Diskettes 
Box of 5 $24.95 

plus $1 shipping 
box of 1 . . $39.95 

plus $2 shipping 
box of 20 $69.95 

plus $2 shipping 
case of 100 $299.00 

plus $3 shipping 
Diskette Storage Box $5.00 

plus $1 shipping 
Floppy Armour (!) protective envel- 
ope for shipping floppy disks. 
5 pack $4.95 

plus $1 shipping 
Z-80 Chip Poster . .$3.99 

plus $1 shipping 
SoftSlde Vinyl Binders . ... . . . . . .$4.95 

plus $1 shipping 
Tape Recorder Alignment Kit 
.$9.95 

plus $1 shipping 

IMPORTANT 

■ NosalQStax. 

■ All C.O.D.'s or special delivery orders are 
a minimum of $5 for special handling. 

For more detailed descriptions of our soft- 
ware and supplies send for the TSE Catalog 
• it's FREE! Write or call today for your 
copy: 



VmSoHwareExdiange 

6SouthStreet,Box68,Milfad,NH0^m 603-673-5144 
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Order Form 

Special prices in effect 60 days from mailing 
DESCRIPTION MEMORY LEVEL PRICE 




TOTAL ENCLOSED WITH ORDER 

D Check DVISA D Master Charge 



□ Money Order 



■ 



THE SOFTWARE EXCHANGE 

6 SOUTH STREET MILFORD, NH 03055 
Order toil free: 1-800-258-1790 (in nh can 6735144) 

Level II software.avallable on disk for a $5.00 (per order) medium charge. This 
extra fee is for any number of programs transferred to disk from tape when you 
order. If the order exceeds the capacity of a single disk, we absorb the extra 
cost. 

Be sure to include handling charge and any additional charges when figuring 
your total. All orders shipped within 48 hours. 

All prices are subject to change without notice. We are not responsible for 
typographical errors, Including Incorrect prices. 



Charge card account number 



ALL SOFTWARE GUARANTEED TO LOAD AND RUN. If you experience 
difficulties, simply return the tape or disic for free replacement. Send to the 
attention of Bette Keenan, Customer Service Representative; please 
enclose a brief note and your name and mailing address with the software. 



Signature. . 



Exp. Date , , inter. # 

Charge customers: Please fill in account information above and below 



Name.. 



Address.. 
City 



.State.. 



..ZIP.. 



ALL SOFTWARE SOLD ON AN AS-IS BASIS WITHOUT WARRANTY. TSE 

assumes no liability for loss or damage caused or alleged to be caused directly 
or indirectly by equipment or products Sold or exchanged by them or their 
distributors, including but not limited to any interruption in service, loss of 
business or anticipatory profits or consequential damages resulting from use or 
operation of such equipment or software. 



'.^m 



POB0X68 

MjIford.NH 03055 

"your BASIC software majgazine" 



Rush me the next 12 issues of SoftSide. ! 

nUSAbulk.$181yr. n$32-2yrs. nCANADA/MEXICO$25 1 yr. | 

D USA first class $25 lyr. ^ DOVERSEAS airmail $301 yr. 1 

D APO/OVERSEAS surface $25 1 yr. Telephone your charge.card order! Call g 

^^^_ our Subscription of flee Monday through I 

CrpHif rarrl - jisa Friday 9:30 to 5:30 (Eastern time) at | 

I 
I 
I 
I 



603-673-5144 



Exp. Date- 
Si g nature - 
Name— — 
Address— 
City 



Interbank # 



(M/G only). 



I 
I 

r Please remit in US funds ONLY | 



-State - 



-Zip- 



Ready to get serious? SUBSCRIBE TO PROG/80 the magazine 
dedicated to serious programmers. . .beginners to professionals 

SUBSCRIPTION RATES - 6 Issues per year 

USA Canada 

Bulk mail - $15.00 Mexico 

First Class Mail - $21 .00 APO/FPO ^ 

Overseas airmail - $27.00 Overseas surf a 




Telephone orders, accepted for^Ma^tisr^Ohargeor^VISA accounts. Call Monday ih'rdugh 
PO BOX 68, MILFORD; NH 03055 
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TINYCOMP 

by Dave BoUks 

A BASIC Compiler in BASIC! Run your source program in 
BASIC, compile it into FAST Z-80 Code and execute the compiled 
version — all without reloading. 26 integer variables, GOTO, 
GOSUB, END, REM, RND, LET, +,*,/, IF, THEN, ELSE. <,=,>. 
rNKEY$. CLS, PRINT@, CHR$, PEEK, POKE. Compiled programs 
may be saved via TAPEDISK. 

Supplied with game program, "30 TIC TAC TOE", which usesaD 
of the TINY COMP Statement set and is ready to compile. 

Manual includes several sample programs as well as thorough 
documentation of the Compiler for those who like to know "how 
things work* and for those who might even wish to EXPAND on 
TINY COMFs capabilities. 



Tape version: $19.95 



Disk version: $24.95 



TheScHware Exchange 

6 ScxithStnxH, Box 68^MilfordNH 03055 60J-67^9744 
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